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Army  Acquisition  Management  System 

Invoice  #90-162 

CONTENTS: 


1  Baseline  Cost  Report  Specifications,  .PRN 
Files  and  Code 

2  Congressional  Status  Report  Specifications, 
.PRN  Files  and  Code 

3  RDTE  Financial  Execution  Report 
Specifications,  .PRN  Files  and  Code 

4  Procurement  Financial  Execution  Report 
Specifications,  .PRN  Files  and  Code. 


Army  Acquisition 
Management  System 


1  Baseline  Cost  Report  Specifications 

Develop  report  specifications  for  Baseline  Cost 
MBC010,  MBC210/1/2/3,  MBC220/1/2/3,  MBC230 
with  drill-down  to  MBC250,  and  MBC240/1  EIS 
screens  and  develop  report  software. 


Office  of  the  Future®,  Inc. 

115  River  Road,  Edgewater,  NJ  07020 


AAMS  PHASE  III  PROGRAM  SPECIFICATIONS 
Report  Generation 
10/9/90 


Report  File  Names:  (all  end  with  extension  PRN) 

MBC010 

MBC210 

MBC211 

MBC212 

MBC213 

MBC220 

MBC221 

MBC222 

MBC223 

MBC230 

MBC240 

MBC241 

MBC250  drill  down  series  on  MBC230 


Purpose: 


Program  Baseline  Cost  reports  will  be  sorted  by  PEO  and  program  and  will  display 
PEO,  program,  latest  then  year  RDTE  cost  estimate,  then  year  RDTE  percent  change 
from  baseline,  latest  then  year  procurement  cost  estimate,  then  year  procurement 
percent  change  from  baseline,  latest  then  year  OMA  cost  estimate,  then  year  OMA 
percent  change  from  baseline,  latest  then  year  MILCON  cost  estimate  and  then  year 
MILCON  percent  change  from  baseline  except  as  otherwise  noted. 
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Text  report  that  contains  headers  for  all  Program  Baseline  Cost  reports  and 
calculations  for  those  screens  containing  graphs. 

#1)  Each  header  contains  the  latest  submitdate  from  the  LATESTjiUBMiSSION 
table. 

The  class  calculation  will  determined  by  records  from  BASELINECOST  except  for  2e 
which  is  determined  by  records  from  the  UCR  table. 

#2al)  header  contains  the  highest  classification  from  all  the  records  selected  for 
MBC210  between  the  DEVCLASSBASE  and  DEVCLASSTHEN  fields  within  those 
records. 

#2a2)  header  contains  the  highest  classification  from  all  the  records  selected  for 
MBC220  between  the  DEVCLASS  BASE  and  DEVCLASS  THEN  fields  within  those 
records. 

#2bl)  header  contains  the  highest  classification  from  all  the  records  selected  for 
MBC211  between  the  PROCCLASSBASE  and  PROCCLASSTHEN  fields  within 
those  records. 

#2b2)  header  contains  the  highest  classification  from  all  the  records  selected  for 
MBC221  between  the  PROCCLASS  BASE  and  PROCCLASS  THEN  fields  within 
those  records. 

#2cl)  header  contains  the  highest  classification  from  all  the  records  selected  for 
MBC212  between  the  MILCONCLASSJBASE  and  MILCONCLASSTHEN  fields 
within  those  records. 

#2c2)  header  contains  the  highest  classification  from  all  the  records  selected  for 
MBC222  between  the  MILCONCLASS_BASE  and  MILCONCLASS  THEN  fields 
within  those  records. 

#2dl)  header  contains  the  highest  classification  from  all  the  records  selected  for 
MBC213  between  the  OMACLASSBASE  and  OMACLASS  THEN  fields  within 
those  records. 

#2d2)  header  contains  the  highest  classification  from  all  the  records  selected  for 
MBC223  between  the  OMACLASSJBASE  and  OMACLASS_THEN  fields  within 
those  records. 

#2e)  header  contains  the  highest  classification  from  all  the  records  selected  for 
MBC230  between  the  following  fields  within  those  records.  (UCR  table) 
a)  TPQTYCLASS  b)TPACCLASS 
c)  CPQTYCLASS  d)  CYPCCLASS 
c)  PYAPCLASS  f)  CYAPCLASS 

#2f)  header  contains  the  highest  classification  from  all  the  records  selected  for 
MBC240  between  the  DEVCLASS  THEN,  PROCCLASS_THEN, 

MILCONCLASS  THEN  and  OMACLASS  THEN  fields  within  those  records. 


#2g)  header  contains  the  highest  classification  from  all  the  records  selected  for 
MBC241  between  the  DEVCLASSBASE,  PROCCLASS  BASE, 
MILCONCLASS  BASE  and  OMACLASS  BASE  fields  within  those  records. 


The  remaining  calculations  for  MBC010  pertain  to  the  matrix  on  the  MBC010  screen. 
This  matrix  displays  the  number  of  programs  with  breaches  or  potential  breaches  for 
RDTE,  Procurement,  MILCON  and  OMA. 

•  Only  consider  those  records  from  BASELINE_COST  table  for  each  PEO’s  programs 

whose  submitdate  is  equal  to  the  submitdate  for  the  related  program  from  the 
LATESTSUBMISSION  table. 

Find  each  BASELINE  COST  record  within  a  program  for  each  PEO  with  the  latest 
submitdate  (Unique  key  is  PNO,  QUANTITYNO,  and  SUBMITDATE). 

• 

#3a)  Count  of  records  produced  for  MBC210 

#3b)  Count  of  unique  records  whose  DEVCOST  BASE  >  0. 

#3c)  Count  of  records  produced  for  MBC220 
#4a)  Count  of  records  produced  for  MBC211 
#4b)  Count  of  unique  records  whose  PROCCOST_BASE  >  0. 

•  #4c)  Count  of  records  produced  for  MBC221 

#5a)  Count  of  records  produced  for  MBC212 

#5b)  Count  of  unique  records  whose  MILCONCOST  BASE  >  0. 

#5c)  Count  of  records  produced  for  MBC222 
#6a)  Count  of  records  produced  for  MBC213 
#6b)  Count  of  unique  records  whose  OMACOST  BASE  >  0. 

•  #6c)  Count  of  records  produced  for  MBC223 


FORMAT:  MBC010 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 


Except  as  noted  below  the  text  for  this  report  file  is  fixed  as  shown  on  attached  sample. 
(See  sample  for  formatting  information). 

Calculations  (#1)  will  appear  on  line  12. 

LJ  Col  9- 14  =  #  1  (after  words  ’as  of  ’  using  (Mon  YY]  format.) 

Calculations  (#1)  will  also  appear  on  lines  16,  26, 36,  46,  56,  66,  76, 87,  101, 116,  and 
126. 

U  Col  28-33  =  #1  (after words  ’as  of’  using  [Mon  YY]  format.) 


Calculations 
Calculations 
Calculations 
Calculations 
Calculations 
Calculations 
CalcuJ  dons 
Calculations 
Calculations 
Calculations 
Calculations 


i#2al)  will  appear  on  line  16. 
#2bl)  will  appear  on  line  26. 
#2cl)  will  appear  on  line  36. 
#2dl)  will  appear  on  line  116. 
#2a2)  will  appear  on  line  46. 
#2b2)  will  appear  on  line  56. 
#2c2)  will  appear  on  line  66. 
#2d2)  will  appear  on  line  126, 
#2e)  will  appear  on  line  76. 
#2f)  will  appear  on  line  87. 
#2g)  will  appear  on  line  101. 


LJ  Col  49-49  =  #2a-g  (after  text  ’Class:  [’) 

Calculations  f  #3a-c)  will  appear  on  line  137 
Calculations  (#4a-c)  will  appear  on  line  138 
Calculations  ( #5a-c)  will  appear  on  line  139 
Calculations  (#6a-c)  will  appear  on  line  140 


RJ  Col  7-10  =  #3-6a  (Using  [9999]  format) 
RJ  Col  15-18  =  #3-6b  (Using  [9999]  format) 
RJ  Col  22-25  =  #3-6c  (Using  [9999]  format) 


MBC210 


| - 

RDTE  Baseline  Cost  breaches  sorted  by  PEO,  Program  and  End  Item  (Quantityno). 
The  report  displays  for  each  breach,  the  PEO,  Program,  Base  Year,  Baseline  Cost, 
Threshold  and  PM  estimate  in  Base  Year  dollars,  percent  change,  Baseline  Cost  and 
PM  estimate  in  Then  Year  dollars.  A  breach  occurs  when  the  PM  estimates  a  15%  or 
greater  increase  over  Base  Year  Cost. 

The  report  will  be  sorted  by  SHORTPEO,  SHORT  PNA,  and 
BASELINE  COST.QUANTITYNO  even  though  QUANTITYNO  is  not  displayed. 

Only  consider  those  records  from  the  BASELINECOST  table  for  each  PEO’s 
programs  whose  submitdate  is  equal  to  the  submitdate  for  the  related  program  from 
the  LATEST  SUBMISSION  table. 


Find  each  BASELINE  COST  record  within  a  program  for  each  PEO  with  the  latest 
submitdate  (Unique  key  is  PNO,  QUANTITYNO,  and  SUBMITDATE).  Only 
consider  those  whose  PMDEVCOST  BASE  is  greater  than  or  equal  to 
DEVCOST_BASE  *  1.15  and  whose  DEVCOST  BASE  is  not  equal  to  0. 


Calculation  Names  Table 


#1)  SHORT  PEO 
#2)  SHORT  PNA 
#3)  BASEYEAR 
#4)  DEVCOSTBASE 
#5)  #4  *  1  15 
#6)  PMDEVCOSTBASE 
#7)  ((#6-#4)/#4)  *"100 
#8)  DEVCOST  THEN 
#9)  PMDEVCOST  THEN 
#10)  ((#9-#8)/#8)r100 


PEO 

PROGRAM 

PROGRAM 

BASELINECOST 

BASELINECOST 

BASELINECOST 

BASELINECOST 


FORMAT:  MBC210 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #1-#10  will  appear  vertically  starting  on  line  1. 

U  Col  1-3  =  #1 
U  Col  5-11  =  #2 

RJ  Col  13- 15  =  #3  (Using  [999]  format) 

RJ  Col  17-24  =  #4  (Using  [99,999.9]  format) 

RJ  Col  27-34  =  #5  (Using  [99,999.9]  format) 

RJ  Col  37-44  =  #6  (Using  [99,999.9]  format) 

RJ  Col  46-5 1  =  #7  (Using  [999.9%]  format) 

RJ  Col  55-62  =  #8  (Using  [99,999.9]  format) 

RJ  Col  64-71  =  #9  (Using  [99,999.9]  format) 

RJ  Col  73-78  =  #  10  (Using  [999.9%]  format) 


MBC211 


Procurement  Baseline  Cost  breaches  sorted  by  PEO,  Program  and  End  Item 
(Quantityno).  The  report  displays  for  each  breach,  the  PEO,  Program,  Base  Year, 
Baseline  Cost,  Threshold  and  PM  estimate  in  Base  Year  dollars,  percent  change, 
Baseline  Cost  and  PM  estimate  in  Then  Year  dollars.  A  breach  occurs  when  the  PM 
estimates  a  5%  or  greater  increase  over  Base  Year  Cost. 

The  report  will  be  sorted  by  SHORT  PEO,  SHORT  PNA,  and 
BASELINECOST.QUANTITYNO  even  though  QUANTITYNO  is  not  displayed. 

Only  consider  those  records  from  the  BASELINECOST  table  for  each  PEO’s 
programs  whose  submitdate  is  equal  to  the  submitdate  for  the  related  program  from 
the  LATEST  SUBMISSION  table. 


Find  each  BASELINE  COST  record  within  a  program  for  each  PEO  with  the  latest 
submitdate  (Unique  key  is  PNO,  QUANTITYNO,  and  SUBMITDATE).  Only 
consider  those  whose  PMPROCCOST  BASE  is  greater  than  or  equal  to 
PROCCOSTBASE  *  1.05  and  whose  PROCCOSTBASE  is  not  equal  to  0. 


Calculation  Names  Table 


#1)  SHORT  PEO 
#2)  SHORT  PNA 
#3)  BASEYEAR 
#4)  PROCCOST  BASE 
#5 1  #4  *  1  05 

#6)  PMPROCCOST  BASE 
#7)  ((#6-#4)/#4)  *  100 
#8)  PROCCOST  THEN 
#9)  PMPROCCOSTTHEN 
#10)  ((#9-#8)/#8)  *  100 


PEO 

PROGRAM 

PROGRAM 

BASELINECOST 

BASELINECOST 

BASELINECOST 

BASELINECOST 


FORMAT:  MBC211 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #1-#10  will  appear  vertically  starting  on  line  1. 

U  Col  1-3  =  #1 
U  Col  5-11  =  #2 

RJ  Col  13-15  =  #3  (Using  [999]  format) 

RJ  Col  17-24  =  #4  (Using  [99,999.9]  format) 

RJ  Col  27-34  =  #5  (Using  [99,999.9]  format) 

RJ  Col  37-44  =  #6  (Using  [99,999.9]  format) 

RJ  Col  46-51  =  #7  (Using  [999.9%]  format) 

RJ  Col  55-62  =  #8  (Using  [99,999.9]  format) 

RJ  Col  64-71  =  #9  (Using  [99,999.9]  format) 

RJ  Col  73-78  =  #  10  (Using  [999.9%]  format) 


MBC212 


MILCON  Baseline  Cost  breaches  sorted  by  PEO,  Program  and  End  Item 
(Quantityno).  The  report  displays  for  each  breach,  the  PEO,  Program,  Base  Year. 
Baseline  Cost,  Threshold  and  PM  estimate  in  Base  Year  dollars,  percent  change, 
Baseline  Cost  and  PM  estimate  in  Then  Year  dollars.  A  breach  occurs  when  the  PM 
estimates  a  5%  or  greater  increase  over  Base  Year  Cost. 


The  report  will  be  sorted  by  SHORTPEO,  SHORT  PNA,  and 

BASELINE  COST.QUANTITYNO  even  though  QUANTITYNO  is  not  displayed. 

Only  consider  those  records  trom  the  BASELINECOST  table  for  each  PEO’s 
programs  whose  submitdate  is  equal  to  the  submitdate  for  the  related  program  from 
the  LATEST_SUBMISSION  table. 

Find  each  BASELINE  COST  record  within  a  program  roc  each  PEO  with  the  latest 
submitdate  (Unique  key  is  PNO,  QUANTITYNO,  and  SUBMITDATE).  Only 
consider  those  whose  PMMILCONCOST  BASE  is  greater  than  or  equal  to 
MILCONCOST_BASE  *  1.05  and  whose  MILCONCOST_BASE  is  not  equal  to  0. 

Calculation  Names  Table 


#1)  SHORT  PEO 

#2)  SHORT  PNA 

#3)  BASEYEAR 

#4)  MILCONCOST  BASE 

#5)  #4  *  1.05 

#6)  PMMILCONCOST  BASE 
#7)  ((#6-#4)/#4)  *  100 
#8)  MILCONCOST  THEN 
#9)  PMMILCONC(5$T_THEN 
#10)  ((#9-#8)/#8)  *  100 


PEO 

PROGRAM 

PROGRAM 

BASELINECOST 

BASELINECOST 

BASELINECOST 

BASELINECOST 


FORMAT:  MBC212 


(LJ  =s  Left  Justified,  RJ  =  Right  Justified) 

•  The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #1-#10  will  appear  vertically  starting  on  line  1. 


U 

U 

•  RJ 

RJ 

RJ 

RJ 

RJ 

RJ 

#  RJ 

RJ 


Col  1-3  =  #1 
Col  5-11  =  #2 

Col  13-15  =  #3  (Using  [999]  format) 

0)1 17-24  =  #4  (Using  [99,999.9]  format) 
Col  27-34  =  #5  (Using  [99,999.9]  format) 
Col  37-44  =  #6  (Using  [99,999.9]  format) 
Col  46-51  =  #7  (Using  [999.9%]  format) 
Col  55-62  =  #8  (Using  [99,999.9]  format) 
Col  64-71  =  #9  (Using  [99,999.9]  format) 
Col  73-78  =#10  (Using  [999.9%]  format) 


MBC213 


OMA  Baseline  Cost  breaches  sorted  by  PEO,  Program  and  End  Item  (Quantityno). 
The  report  displays  for  each  breach,  the  PEO,  Program,  Base  Year,  Baseline  Cost, 
Threshold  and  PKl  estimate  in  Base  Year  dollars,  percent  change,  Baseline  Cost  and 
PM  estimate  in  Then  Year  dollars.  A  breach  occurs  when  the  PM  estimates  a  5%  or 
greater  increase  over  Base  Year  Cost. 

The  report  will  be  sorted  by  SHORTPEO,  SHORT  PNA,  and 
BASELINECOST.QUANTITYNO  even  though  QUANTITYNO  is  not  displayed. 


Only  consider  those  records  from  the  BASELINE_COST  table  for  each  PEO’s 
programs  whose  submitdate  is  equal  to  the  submitdate  for  the  related  program  from 
the  LATESTSUBMISSION  table. 

Find  each  BASELINECOST  record  within  a  program  for  each  PEO  with  the  latest 
submitdate  (Unique  key  is  PNO,  QUANTITYNO,  and  SUBMITDATE).  Only 
consider  those  whose  PMOMACOST  BASE  is  greater  than  o~  equal  to 
OMACOST_BASE  *  1.05  and  whose  OMACOST  BASE  is  not  equal  to  0. 

Calculation  Names  Table 


I 


#1)  SHORT  PEO 
#2)  SHORT  PNA 
#3)  BASEYEAR 
#4)  OMACOST  BASE 
#4  *  1  05 

#6)  PMOMACOST  BASE 
#7)  ((#6-#4)/#4)  *  100 
#8)  OMACOST  THEN 
#9)  PMOMACOST  THEN 
#10)  ((#9-#8)/#8)  *  100 


PEO 

PROGRAM 

PROGRAM 

BASELINECOST 

BASELINECOST 

BASELINECOST 

BASELINECOST 


» 


FORMAT:  MBC213 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 


The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 
Calculations  #1-#10  will  appear  vertically  starting  on  line  1. 


U  Col  1-3  =  #1 
U  Col  5-11  =  #2 

RJ  Col  13-15  =  #3  (Using  [999]  format) 

RJ  Col  17-24  =  #4  (Using  [99,999.9]  format) 
RJ  Col  27-34  =  #5  (Using  [99,999.9]  format) 
RJ  Col  37-44  =  #6  (Using  [99,999.9]  format) 
RJ  Col  46-5 1  =  #7  (Using  [999.9%]  format) 
RJ  Col  55-62  =  #8  (Using  [99,999.9]  format) 
RJ  Col  64-71  =  #9  (Using  [99,999.9]  format) 
RJ  Col  73-78  =#  10  (Using  [999.9%]  format) 


I 


MBC220 


RDTE  potential  Baseline  Cost  breaches  sorted  by  PEO,  Program  and  End  Item 
(Quantityno).  The  report  displays  for  each  breach,  the  PEO,  Program,  Base  Year, 
Baseline  Cost,  Threshold  and  PM  estimate  in  Base  Year  dollars,  percent  change, 
Baseline  Cost  and  PM  estimate  in  Then  Year  dollars.  A  breach  occurs  when  the  PM 
estimates  between  10-15%  increase  over  Base  Year  Cost. 

The  report  will  be  sorted  by  SHORT  PEO,  SHORT  PNA,  and 
BASELINECOST.QUANTITYNO  even  though  QUANTITYNO  is  not  displayed. 

Only  consider  those  records  from  the  BASELINECOST  table  for  each  PEO’s 
programs  whose  submitdate  is  equal  to  the  submitdate  for  the  related  program  from 
the  LATEST_SUBMISSION  table. 

Find  each  BASELINE  COST  record  within  a  program  for  each  PEO  with  the  latest 
submitdate  (Unique  key  is  PNO,  QUANTITYNO,  and  SUBMITDATE).  Only 
consider  those  whose  PMDEVCOSTBASE  is  greater  than  or  equal  to 
DEVCOSTBASE  *  1.10  and  less  than  DEVCOST_BASE  *  1.15  and  whose 
DEVCOSTBASE  is  not  equal  to  0 

Calculation  Names  Table 


#1)  SHORT  PEO 
#2)  SHORT  PNA 
#3)  BASEYEAR 
#4)  DEVCOST  BASE 
#5)  #4  *  1.15  " 

#6)  PMDEVCOST  BASE 
#7)  ((#6-#4)/#4)  *  100 
#8)  DEVCOST  THEN 
#9)  PMDEVCOST  THEN 
#10)  ((#9-#8)/#8)  r100 


PEO 

PROGRAM 

PROGRAM 

BASELINECOST 

BASELINECOST 

BASELINECOST 

BASELINECOST 


FORMAT:  MBC220 

(U  =  Left  Justified,  RJ  =  Right  Justified) 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #1-#10  will  appear  vertically  starting  on  line  1. 


U 

•  LJ 

RJ 

RJ 

RJ 

RJ 

RJ 

#  RJ 

RJ 

RJ 


Col  1-3  =  #1 
Col  5-11  =  #2 

Col  13-15  =  #3  (Using  [999]  format) 

Col  17-24  =  #4  (Using  [99,999.9]  format) 
Col  27-34  =  #5  (Using  [99,999.9]  format) 
Coi  37-44  =  #6  (Using  [99,999.9]  format) 
Col  46-51  =  #7  (Using  [999.9%]  format) 
Col  55-62  =  #8  (Using  [99,999.9]  format) 
Col  64-71  =  #9  (Using  [99,999.9]  format) 
Col  73-78  =#10  (Using  [999.9%]  format) 


MBC221 


Procurement  potential  Baseline  Cost  breaches  sorted  by  PEO,  Program  and  End  Item 
(Quantityno).  The  report  displays  for  each  breach,  the  PEO,  Program,  Base  Year, 
Baseline  Cost,  Threshold  and  PM  estimate  in  Base  Year  dollars,  percent  change, 
Baseline  Cost  and  PM  estimate  in  Then  Year  dollars.  A  breach  occurs  when  the  PM 
estimates  between  0-5%  increase  over  Base  Year  Cost. 

The  report  will  be  sorted  by  SHORT  PEO,  SHORT  PNA,  and 
BASELINECOST.QUANTITYNO  even  though  QUANTITYNO  is  not  displayed. 

Only  consider  those  records  from  the  BASELINECOST  table  for  each  PEO’s 
programs  whose  submitdate  is  equal  to  the  submitdate  for  the  related  program  from 
the  LATEST  SUBMISSION  table. 

Find  each  BASELINE  COST  record  within  a  program  for  each  PEO  with  the  latest 
submitdate  (Unique  key  is  PNO,  QUANTITYNO,  and  SUBMITDATE).  Only 
consider  those  whose  PMPROCCOST  BASE  >  PROCCOST_BASE  and  < 
PROCCOSTBASE  *  1.05  and  whose  PROCCOST  BASE  is  not  equal  to  0. 

Table 

PEO 

PROGRAM 
PROGRAM 
BASELINECOST 

BASELINECOST 

BASELINECOST 
BASELINECOST 

#10)  ((#9-#8)/#8)  *  100 


FORMAT:  MBC221 


Calculation  Names 

#1)  SHORT  PEO 
#2)  SHORT  PNA 
#3)  BASEYEAR 
#4)  PROCCOST  BASE 
#5)  #4  *  1.05 

#6)  PMPROCCOST  BASE 
#7)  ((#6-#4)/#4)  *  100 
#8)  PROCCOST  THEN 
#9)  PMPROCCOST  THEN 


(LJ  =  Left  Justified,  RJ  =  Right  Justified) 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 
Calculations  #1-#10  will  appear  vertically  starting  on  line  1. 


u 

Col 

1-3  = 

#1 

u 

Col 

5-11  = 

=  #2 

RJ 

Col 

13-15 

=  #3  l 

RJ 

Col 

17-24 

=  #4  | 

RJ 

Col 

27-34 

=  #5  | 

RJ 

Col 

37-44 

=  #6  | 

RJ 

Col 

46-51 

=  #7  | 

RJ 

Col 

55-62 

=  #8 1 

RJ 

Col 

64-71 

=  #°  i 

RJ 

Col 

73-78 

=#10 

MBC222 


MILCON  potential  Baseline  Cost  breaches  sorted  by  PEO,  Program  and  End  Item 
(Quantityno).  The  report  displays  for  each  breach,  the  PEO,  Program,  Base  Year, 
Baseline  Cost,  Threshold  and  PM  estimate  in  Base  Year  dollars,  percent  change, 
Baseline  Cost  and  PM  estimate  in  Then  Year  dollars.  A  breach  occurs  when  the  PM 
estimates  between  0-5%  increase  over  Base  Year  Cost. 

The  report  will  be  sorted  by  SHORTPEO,  SHORT  PNA,  and 
BASELINECOST.QUANTITYNO  even  though  QUANTITYNO  is  not  displayed. 

Only  consider  those  records  from  the  BASELINECOST  table  for  each  PEO’s 
programs  whose  submitdate  is  equal  to  the  submitdate  for  the  related  program  from 
the  LATEST_SUBMISSION  table. 

Find  each  BASELINE  COST  record  within  a  program  for  each  PEO  with  the  latest 
submitdate  (Unique  key  is  PNO,  QUANTITYNO,  and  SUBMITDATE).  Only 
consider  those  whose  PMMILCONCOST  BASE  >  MILCONCOST_BASE  and  < 
MILCONCOSTBASE  *  1.05  and  whose  MlLCONCOST_BASE  is  not  equal  to  0. 

Calculation  Names  Table 


#1)  SHORT  PEO 

#2)  SHORT  PNA 

#3)  BASEYEAR 

#4)  MILCONCOST  BASE 

#5)  #4  *  1.05 

#6)  PMMILCONCOST  BASE 
#7)  ((#6-#4)/#4)  *  100 
#8)  MILCONCOST  THEN 
#9)  PMMILCONCOSTTHEN 
#10)  ((#9-#8)/#8)  *  100 


PEO 

PROGRAM 

PROGRAM 

BASELINECOST 

BASELINECOST 

BASELINECOST 

BASELINECOST 


FORMAT:  MBC222 


(LJ  =  Left  Justified,  RJ  =  Right  Justified) 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 


Calculations  #1-#10  will  appear  vertically  starting  on  line  1. 


U 

U 

RJ 

RJ 

RJ 

RJ 

RJ 

RJ 

RJ 

RJ 


Col  1-3  =  #1 
Col  5-11  =  #2 

Col  13-15  =  #3  (Using  [999]  format) 

Col  17-24  =  #4  (Using  [99,999.9]  format) 
Col  27-34  =  #5  (Using  [99,999.9]  format) 
Col  37-44  =  #6  (Using  [99,999.9]  format) 
Col  46-51  =  #7  (Using  [999.9%]  format) 
Col  55-62  =  #8  (Using  [99,999.9]  format) 
Col  64-71  =  #9  (Using  [99,999.9]  format) 
Col  73-78  =#10  (Using  [999.9%]  format) 


MBC223 


•  OMA  potential  Baseline  Cost  breaches  sorted  by  PEO,  Program  and  End  Item 

(Quantityno).  The  report  displays  for  each  breach,  the  PEO,  Program,  Base  Year, 
Baseline  Cost,  Threshold  and  PM  estimate  in  Base  Year  dollars,  percent  change, 
Baseline  Cost  and  PM  estimate  in  Then  Year  dollars.  A  breach  occurs  when  the  PM 
estimates  between  0-5%  increase  over  Base  Year  Cost. 

•  The  report  will  be  sorted  by  SHORTPEO,  SHORT  PNA,  and 

BASELINECOST.QUANTITYNO  even  though  QUANTITYNO  is  not  displayed. 

Only  consider  those  records  from  the  BASELINECOST  table  for  each  PEO’s 
programs  whose  submitdate  is  equal  to  the  submitdate  for  the  related  program  from 
the  LATEST  SUBMISSION  table. 

• 

Find  each  BASELINE  COST  record  within  a  program  for  each  PEO  with  the  latest 
submitdate  (Unique  key  is  PNO,  QUANTITYNO,  and  SUBMITDATE).  Only 
consider  those  whose  PMOMACOST  BASE  >  OMACOSTBASE  and  < 
OMACOSTBASE  *  1.05  and  whose  OMACOST  BASE  is  not  equal  to  0. 

•  Calculation  Names  Table 

#1)  SHORT  PEO  PEO 

#2)  SHORT  PNA  PROGRAM 

#3)  BASEYEAR  PROGRAM 

#4)  OMACOST  BASE  BASELINE  COST 

•  #5)  #4  *  1.05 

#6)  PMOMACOST  BASE  BASELINE  COST 

#7)  ((#6-#4)/#4)  *  100 

#8)  OMACOST  THEN  BASELINE  COST 

#9)  PMOMACOST JTHEN  BASELINE  COST 
#10)  ((#9-#8)/#8)  *  100 


FORMAT:  MBC223 

(LJ  —  Left  Justified,  RJ  =  Right  Justified) 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #1-#10  will  appear  vertically  starting  on  line  1. 

U  Col  1-3  *  #1 
U  Col  5-11  =  #2 

RJ  Col  13-15  =  #3  (Using  [999]  format) 

RJ  Col  17-24  =  #4  (Using  [99,999.9]  format) 

RJ  Col  27-34  =  #5  (Using  [99,999.9]  format) 

RJ  Col  37-44  =  #6  (Using  [99,999.9]  format) 

RJ  Col  46-51  =  #7  (Using  [999.9%]  format) 

RJ  Col  55-62  =  #8  (Using  [99,999.9]  format) 

RJ  Col  64-71  =  #9  (Using  [99,999.9]  format) 

RJ  Col  73-78  =  #  10  (Using  [999.9%]  format) 


Unit  Cost  Report  breaches  (UCR)  sorted  by  PEO, Program  and  End  Item  (i.e. 
QUANTITYNO).  For  each  breach  there  will  be  a  drill  down  screen.  Each  breach  will 
list  the  PEO,  Program,  Baseline  SAR  date,  UCR  date,  End  Item  description,  Program 
Acquisition  unit  cost  (PAUC)  and  percent  change,  current  procurement  unit  cost 
(CPUC),  and  percent  change. 


•  The  report  will  be  sorted  by  SHORT  PEO,  SHORT  PNA,  and  UCR.QUANTITYNO 

even  though  QUANTITYNO  is  not  displayed. 

Only  consider  those  records  from  the  UCR  table  for  each  PEO’s  programs  whose 
submitdate  is  equal  to  the  latest  submitdate  for  the  related  program,  quantity  no,  and 
ucrdate  from  the  UCR  table  (Unique  key  is  PNO,  QUANTITYNO,  UCRDATE  and 

•  SUBMITDATE).  Additionally,  only  consider  those  records  whose  calculation  #7  >  = 

25.0  or  whose  calculation  #9  >  =  15.0.  Skip  any  records  whose  TPACCECY, 
TPQTYCECY,  TPACUCRCY,  TPQTYUCRCY,  CPQTYCECY  or  CPQTYUCRCY 
is  <  =  0.  Also,  skip  any  records  whose  (CYPCCECY-CYAPCECY+PYAPCECY) 

<  =  0  or  whose  (CYPCUCRCY-CYAPUCRCY+PYAPUCRCY)  is  <  =  0. 

•  For  each  record  considered  find  the  END  ITEMS.QUANNAME  using  the  PNO  and 

QUANTITYNO  which  is  the  unique  key  on  END  ITEMS. 


Calculation  Names  Table 

#1)  SHORT  PEO  PEO 

•  #2)  SHORT  PNA  PROGRAM 

#3)  CYBLDATE  UCR 

#4)  UCRDATE  UCR 

#5)  QUANNAME  ENDJTTEMS 

#6)  TP ACCEC Y/TPQTY CEC Y  UCR 


#6A)  TPACUCRCY/TPQTYUCRCY 
•  #7)  ((#6  -  #6A)/#6A)  *  100 

#8)  (C YPCCEC Y -C YAPCEC Y + P  Y APCEC Y)/CPQTY CEC Y 
#8A)(CYPCUCRCY-CYAPUCRCY+PYAPUCRCY)/CPQTYUCRCY 
#9)  ((#8  -  #8A)/#8A)  *  100 


FORMAT:  MBC230 

(U  =  Left  Justified,  RJ  =  Right  Justified) 


The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #l-#9  will  appear  vertically  starting  on  line  1. 

U  Col  1-3  =  #1 
U  Col  5-11  -  #2 

U  Col  13-18  *  #3  (Using  [Mon  YY]  format) 

LJ  Col  20-27  =  #4  (Using  [MM/DD/YY]  format) 

U  Col  29-47  =  #5 

RJ  Col  49-55  =  #6  (Using  [999,999]  format) 

RJ  Col  57-62  =  #7  (Using  [999.9%]  format) 

RJ  Col  64-70  =  #8  (Using  [999,999]  format) 

RJ  Col  72-77  =  #9  (Using  [999.9%]  format) 


# 


MBC240 


Summary  of  program  cost  in  Then  Year  dollars  for  all  appropriation  categories  for  all 
programs  sorted  by  PEO, Program  and  End  Item  (i.e.  QUANTITYNO).  Each  line  lists 
the  PEO,  Program,  Base  Year,  Baseline  Cost  and  the  latest  estimated  percent  change 
for  RDTE,  Procurement,  MILCON,  and  OMA. 


The  report  will  be  sorted  by  SHORTPEO,  SHORT  PNA,  and 
BASELINE_COST.QUANTITYNO  even  though  QUANTITYNO  is  not  displayed. 


Only  consider  those  records  from  the  BASELINE_COST  table  for  each  PEO’s 
programs  whose  submitdate  is  equal  to  the  submitdate  for  the  related  program  from 
the  LATESTSUBMISSION  table. 

Find  each  BASELINE  COST  record  within  ajprogram  for  each  PEO  with  the  latest 
submitdate  (Unique  key  is  PNO,  QUANTITYNO,  and  SUBMITDATE).  Ignore  any 
records  where  all  the  THEN  values  are  0  (i.e.  calculation  #3,5,7  and  9). 


Calculation  Names  Table 


41 


#1)  SHORT  PEO  PEO 

#2)  SHORT  PNA  PROGRAM 

#3)  DEVCOST  THEN  BASELINE  COST 

#4)  (PMDEVCOST_THEN-#3)/#3  *  100  ~ 

#5)  PROCCOST  THEN 

#6)  (PMPROCC0ST  THEN-#5)/#5  *  100 

#7)  MILCONCOST  THEN 

#8)  (PMMILCONC0ST  THEN-#7)/#7  *  100 

#9)  OMACOST  THEN 

#10)  (PMOMACOST  THEN-#9)/#9  *  100 

#11)  Fixed  text  ’PEO  Total’ 

#12)  Total  of  #3 
#13)  Total  of  #5 
#14)  Total  of  #7 
#15)  Total  of  #9 


2222C  22222222CC 


FORMAT:  MBC240 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 


The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #1-#10  will  appear  vertically  starting  on  line  1. 

Calculations  #11-#15  will  appear  after  each  PEO  break. 

Col  1-3  =  #1 
Col  5-11  =  #2 

Cot  15-22  =  #3  (Using  [99,999.9]  formal) 

Col  24-29  =  #4  (Using  [999.9%]  format) 

Col  31-39  =  #5  (Using  [999,999.9]  format) 

Col  41-46  =  #6  (Using  [999.9%]  format) 

Col  48-55  =  #7  (Using  [99,999.9]  format) 

Col  57-62  =  #8  (Using  [999.9%]  format) 

Col  64-71  =  #9  (Using  [99,999.9]  format) 

Col  73-78  =#10  (Using  [999.9%]  format) 

Col  2-10  =#11  (Fixed  Text  [’PEO  Total’]) 

Col  12-22  =#12  (Using  [9,999,999.9]  format) 

Col  27-39  =#13  (Using  [999,999,999.9]  format) 

Col  43-55  =#14  (Using  [999,999,999.9]  format) 

Col  59-71  =#15  (Using  [999,999,999.“]  format) 


Summary  of  program  cost  in  Base  Year  dollars  for  ail  appropriation  categories  for  all 
programs  sorted  by  PEO, Program  and  End  Item  (i.e.  QUANTITYNO).  Each  line  lists 
the  PEO,  Program,  Base  Year,  Baseline  Cost  and  the  latest  estimated  percent  change 
for  RDTE,  Procurement,  MILCON,  and  OMA. 

The  report  will  be  sorted  by  SHORTPEO,  SHORT  PNA,  and 
BASELINECOST.QU  ANTIT  YN O  even  though  QUANTITYNO  is  not  displayed. 

Only  consider  those  records  from  the  BASELINECOST  table  for  each  PEO’s 
programs  whose  submitdate  is  equal  to  the  submitdate  for  the  related  program  from 
the  LATESTSUBMISSION  table. 

Find  each  BASELINE  COST  record  within  a  program  for  each  PEO  with  the  latest 
submitdate  (Unique  key  is  PNO,  QUANTITYNO,  and  SUBMITDATE).  Ignore  any 
records  where  all  the  BASE  values  are  0  (i.e.  calculation  #3,5,7  and  9). 

Calculation  Names  Table 

#1)  SHORT  PEO  PEO 

#2)  SHORT  PNA  PROGRAM 

#3)  DEVCOST  BASE  BASELINE  COST 

#4)  (PMDEVCOST  BASE-#3)/#3  *  100 

#5)  PROCCOST  BASE 

#6)  (PMPROCCOST  BASE-#5)/#5  *  100 

#7)  M1LCONCOST  BASE 

#8)  (PMMILCONC0ST  BASE-#7)/#7  *  100 

#9)  OMACOST  BASE  " 

#10)  (PMOMACOST  BASE-#9)/#9  *  100 
#11)  Fixed  text  ’PEO  Total’ 

#12)  Total  of  #3 
#13)  Total  of  #5 
#14)  Total  of  #7 
#15)  Total  of  #9 


I 


ft 


ft 


FORMAT:  MBC241 

(U  =  Left  Justified,  RJ  =  Right  Justified) 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #1-#10  will  appear  vertically  starting  on  line  1. 

Calculations  #11-#  15  will  appear  after  each  PEO  break. 

U  Col  1-3  =  #1 
U  Col  5-11  =  #2 

RJ  Col  15-22  =  #3  (Using  [99,999.9]  format) 

RJ  Col  24-29  =  #4  (Using  [999.9%]  format) 

RJ  Col  31-39  =  #5  (Using  [999,999.9]  format) 

RJ  Col  41-46  =  #6  (Using  [999.9%]  format) 

RJ  Col  48-55  =  #7  (Using  [99,999.9]  format) 

RJ  Col  57-62  =  #8  (Using  [999.9%]  format) 

RJ  Col  64-71  =  #9  (Using  [99,999.9]  format) 

RJ  Col  73-78  =#10  (Using  [999.9%]  format) 

U  Col  2-10  =#11  (Fixed  Text  [’PEO  Total’]) 

RJ  Col  12-22  =#12  (Using  [9,999,999.9]  format) 

RJ  Col  27-39  =  #  13  (Using  [999,999,999.9]  format) 

RJ  Col  43-55  =  #  14  (Using  [999,999,999.9]  format) 

RJ  Col  59-71  =#15  (Using  [999.999,999.9]  format) 


ft 


ft 


ft 


ft 


ft 


ft 


MBC250x 


Series  of  drill  down  reports  based  on  MBC230.  Each  report  is  a  Unit  Cost  Report  for 
the  related  end  item  in  MBC230.  The  UCR  meets  the  requirements  of  section  2433  of 
title  10,  USA  code.  It  is  a  quarterly  report  designed  to  monitor  PAUC  and  CPUC. 

Unit  Cost  reporting  begins  with  the  establishment  of  a  selected  SAR.  Exception 
reports  are  required  whenever  the  current  estimate  of  a  PAUC  or  CPUC  exceeds  the 
UCR  baseline  unit  costs  by  15%  or  more. 

The  reports  will  be  named  using  a  postfix  that  will  vary  dependent  on  the  #  of  MBC230 
records,  (i.e.  MBC250a,b,c..z).  Each  drill  down  file  will  use  the  same  data  as  the 
MBC230  record  that  it  was  drilled  down  from. 

Calculation  Names  Table 

#1)  Drill  Down  File  Name 

#2)  SHORT  PNA  PROGRAM 

#3)  UCRDATE  UCR 

#4)  Highest  CLASSIFICATION  of 

a)  TPQTYCLASS  b)  TPACCLASS  c)  CPQTYCLASS 
d)  CYPCCLASS  e)  PYAPCLASS  f)  CYAPCLASS 
#5)  OUANNAME  END  ITEMS 

#6)  CYCEDATE  UCR" 

#7)  CYBLDATE 

#8)  TPACCECY 
#9)  TPQTYCECY 
#10)  #8/#9 

#11)  TPACUCRCY 
#12)  TPQTYUCRCY 
#13)  #11/#  12 

#14)  (#10-#13)/#13  *  100 

#15)  CPFYCECY 
#16)  CYPCCECY 
#17)  CYAPCECY 
#18)  PYAPCECY 
#19)  #16-#17+#18 
#20)  CPQTYCECY 
#21)  #19/#20 

CPFYUCRCY 
CYPCUCRCY 
CYAPUCRCY 
#25)  PYAPUCRCY 
#26)  #23-#24+#25 
#27)  CPQTYUCRCY 
#28)  #26/#27 


#29)  (#21-#28)/#28  *  100 


FORMAT:  MBC250x 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 

The  onlycalculated  fields  are  those  listed  above  and  they  will  appear  as  described 
below,  foere  is  also  additional  fixed  text  that  will  appear  as  shown  on  attached  sample. 

Calculation  #1  will  appear  on  line  10. 

U  Col  1-7  =  #1 

Calculations  #2-#4  will  appear  on  line  11. 

U  Col  1-  7  =  #2 

U  Col  15-22  =  #3  (Using  [MM/DD/YY]  format) 

LJ  Col  50-50  =  #4  (after  text  ’Class:  [’) 

*  Calculations  #5-#6  will  appear  on  line  16. 

LJ  Col  29-34  =  #5  (Using  [Mon  YY]  format) 

LJ  Col  44-49  =  #6  (Using  [Mon  YY]  format) 

Calculations  #8  and  #11  will  appear  on  line  35. 

RJ  Col  8-16  =  #8  (Using  [999,999.9]  format) 

*  RJ  Col  23-3 1  =  #  1 1  (Using  [999,999.9]  format) 

Calculations  #9  and  #12  will  appear  on  line  36. 

RJ  Col  10-16  =  #9  (Using  [999.999]  format) 

RJ  Col  25-31  =  #12  (Using  [999.999]  format) 

*  Calculations  #10  and  #13-#  14  will  appear  on  line  37. 

RJ  Col  10-16  =  #  10  (Using  [999.999]  format) 

RJ  Col  25-31  =  #13  (Using  [999.999]  format) 

RJ  Col  37-44  =  #14  (Using  [-999.99%]  format) 

Calculations  #15  and  #22  will  appear  on  line  39. 

*  U  Col  13-16  =  #15 

U  Col  28-31  -  #22 

Calculations  #16  and  #23  will  appear  on  line  40. 

RJ  Col  8-16  =  #16  (Using  [999,999.9]  format) 

^  RJ  Col  23-31  =  #23  (Using  [999,999.9]  format) 

Calculations  #17  and  #24  will  appear  on  line  41. 

RJ  Col  8-16  =  #17  (Using  [999,999.9]  format) 

RJ  Col  23-31  =  #24  (Using  [999,999.9]  format) 

Calculations  #18  and  #25  will  appear  on  line  42. 

*  RJ  Col  8-16  =  #18  (Using  [999,999.9]  format) 

RJ  Col  23-31  =  #25  (Using  [999,999.9]  format) 

Calculations  #19  and  #26  will  appear  on  line  44. 

RJ  Col  8- 16  =  #  19  (Using  [999,999.9]  format) 

RJ  Col  23-31  =  #26  (Using  [999,999.9]  format) 


222 


Calculations  #20  and  #27  will  appear  on  line  46. 

RJ  Col  8-16  =  #20  (Using  (9,999,999)  format) 

RJ  Col  23-31  =  #27  (Using  (9,999,999)  format) 

Calculations  #21  and  #28-#29  will  appear  on  line  47. 

Col  10-16  =  #21  (Using  t?99.99 9)  format) 

Col  25-31  =  #28  (Using  (999.999)  format) 

Col  37-44  =  #29  (Using  (-999.99%)  format) 


Cross-Program  Review  as  of  Jan  92  Class  1U1 

Procurement  Potential  Program  Cost  Breaches 

I  Breach  Threshold) 

BY  BY  BY  Pf1 

[PEO  Program  BY  Baseline  Threshold  Estimate  x  Chng 


Expia i n 

PP  i  nt 

Next 

MBC221 

Cost  Breaches 

RDTE 

MILCOM  1 

TY  TY  PH 

Baseline  Estimate  *  Chng 


AD  FAADLOS  89  4,773.4  5,012.1  4,813.7  .Qv.  5,744.1  5,903.2  2.8*/ 


HELP 


TOOLS 


SEND 


RETURN- 


Cross-Program  Review  as  of  Jan  92 
UCH  Breaches 


Class  [LM 


Explain  Print  Next  MBC230 


SAR 
Baseline 
[PEO  Program  Date 


UCR  End  Item 
Date  Description 


Program  Current 

Acquistn  7  Procrmnt  X 
Unit  Cst  Change  Unit  Cst  Change 


INSIGHT  Dec-  88*  12/31/89  INSIGHT 

.018 

.059  .-•/ 

tSD  AMRAAN  Dec  87  12/31/88  ANRAAtt 

.475  3.5x 

.929  21 .2/. 

HELP 


SEND 


RETUPW— 


Cross-Program  Review  as  of  Jan  92 
[Program  Baseline  Cost  by  Program/PEO 
Then  Vear  Dollars 


Class  1U1 


Explain  Print  Next  MBC240 


Base  Year  Dollars 


UCB  Breaches 


PEO  Program 

RDTE  Procurement 

(1ILC0N 

OMA 

Baseline 

Latest 

Est-'/.  Baseline 

Latest 

Est-/. 

Basel ine 

Latest 

Est-/. 

Basel ine 

Latest 

Est-/. 

AD  FAADLOS 

302.5 

9v  5,744.1 

2.8-/ 

.0 

.  fiv 

.0 

.  P>: 

AD  FOG-M 

555.9 

.  0  ■/.  2 , 364 . 5 

14-  ✓ 

,  i  _*/, 

.0 

.0.; 

.0 

.  0;< 

AD  PATRIOT 

2,134.5 

.0v  10,066.8 

.  «:■; 

165.6 

.0 

.  t‘/. 

\  PEO  Total 

f  %  J 

2,992.9 

18,177.4 

165.6 

.0 

ASM  ABRAMS 

1,350.2 

,j:.  25,028.7 

22.4 

t  •' 

.0 

. 

;  PEO  Total 

1,350.2 

25,028.7 

22.4 

.0 

AM  AH+P 

223.3 

2,947.8 

/■j , 

.0 

.  n>; 

.0 

i  *  *  . 
t ,  . 

AM  APACHE 

1,479.4 

.3/  10,381.3 

14*  • 

.  u;. 

102.4 

!  4  •  . 

•  o  * . 

.0 

AM  BL-HAWK 

539.5 

.0/  15,609.4 

.  0/ 

23.1 

.0/. 

.0 

rv/ 

AM  CHINOOK 

113.5 

0;  3,208.3 

1.0/ 

.0 

mV 

.0 

PEO  Total 

2,35S.8 

32,146.8 

125.5 

.0 

HELP 


TOOLS 


Cross-Pmaram  Reuieu  as 

of  Jan  92  Class 

1U1 

Expia i n 

Pr  i  nt 

Next 

MBC241 

IProqram  Basel 

ine  Cost  bo  Praqram/PEQ 

Then  Year 

Dollars 

[Base  Year  Dollars 

UCR  Breaches 

RDTE 

Procurement 

MILCON 

oha 

Latest 

Latest 

Latest 

Latest 

PEO  Program  BY  Baseline 

Est-x 

Baseline  Est-x 

Baseline  Est-x 

Baseline  Est-x 

AD  FAADLOS 

297.8 

.flx 

4,773.4  .87. 

.0  .07 

.0 

.07 

AD  PATRIOT 

1,554.0 

.02 

3,286.2  .02 

65.0  ,07 

.0 

.07 

PEO  Total 

1,851.8 

8,059.6 

65.0 

.0 

ASM  ABRAMS 

?30.7 

.27. 

7, 202..  9  -.37. 

9.0  .02 

.0 

,0  . 

[  PEO  Total 

730.7 

7,202.9 

9.0 

.0 

AO  AHIP 

210.3 

14.92 

2,025.6  -29.32 

.0 

,02 

.0 

02  I 

AO  APACHF 

818.4 

.02 

3,158.7  .07 

36.0 

07 

.0 

i>.  ,  | 

m  BL-HAWK 

384.0 

.0/. 

3,899.6,  .07. 

7.1 

.07. 

.0 

.07.  1 

W  CHINOOK 

86.3 

.02 

1,31777  -  2.3>: 

.0 

.  82 

.0 

.02  | 

PEO  Total 

1,499.0 

10,401.6 

43.1 

.0 

r  !  j 

\  HELP  j  TOOLS  :  SEND  - 

RETD PM— 

INSIGHT  as  nf  17./3I/89  (NCR) 

ria^c;*  fill  ExPlO»n|  Next  |ieC250ftj 

Program  Unit  Cost  Report 

INSIGHT 

Current 

Vear 

Current  Est 

UCR  Baseline 

Percent 

DEC  89  SAR 

DEC  88  SAR 

Change 

Program  Acquisition' 

Cost 

6,527.3 

5,831.6 

Quantity 

364,802 

418,293 

j  Unit  Cost 

.018 

.014 

Current  Procurement: 

FV  1990 

FV  1990 

l  Cost 

101.8 

101.8 

[  Less  CV  Adu  Proc 

.0 

.0 

Plus  PV  Adu  Proc 

.0 

.0 

Net  Total 

101.8 

101.8 

Quantity 

1,725 

1,725 

Unit  Cost 

.059 

.059 

0 . 0O>. 

l  \ 

HELP  1  TOOLS  SEND 

1  :  .  '  *  ‘I  ! 
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f  i  | 

i  1  '  ~ 
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6 

7 

8 

9 

10 

11  Cross-Program  Review  Program  Cost  Menu 

12  as  of  Jan  92 

13 

14 

15  HBC210 

16  Cross-Program  Review  as  of  Jan  92  Class  tU] 
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18 

19  Breach  Threshold: 

20  BY  BY  BY  PM  TY  TY  PM 

21  PEO  Program  BY  Baseline  Threshold  Estimate  X  Chng  Baseline  Estimate  X  Chng 
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23 

24 

25  MBC211 

26  Cross-Program  Review  as  of  Jan  92  Class  CU] 

27  Procurement  Program  Cost  Breaches 

28 
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44 
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53 
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56  Cross-Program  Review  as  of  Jan  92 


Class  CU] 


MBC010.PRN 


Thursday,  October  11,  1990  11:19  am 
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73 
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75  M8C230 
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77  UCR  Breaches 
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79  SAR  Program  Current 
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1  AV  ANIP  82  210.3  241.8  241.6  14. 9X  223.3  268.5  20. 2% 
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» 

KBC221.PRN  Thursday,  October  11,  1990  11:19  an  Page  1 

1  AD  FAADLOS  89  4,773.4  5,012.1  4,813.7  .8%  5,744.1  5,903.2  2.8X 
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1990  11:19 

am 

1 

AO  FAAPLOS 

302.5 

.OX 

5,744.1 

2.8X 

.0 

.OX 

.0 

.OX 

2 

AD  FOG-H 

555.9 

.OX 

2,364.5 

.OX 

.0 

.ox 

.0 

.ox 

3 

AD  PATRIOT 

2,134.5 

.OX 

10,068.8 

.ox 

165.6 

.ox 

.0 

.ox 

4 

C 

PEO  Total 

2,992.9 

18,177.4 

165.6 

.0 

3 

6 

ASM  ABRAMS 

1,350.2 

.3X 

25,028.7 

*.3X 

22.4 

.ox 

.0 

.ox 

7 

8 

9 

PEO  Total 

1,350.2 

25,028.7 

22.4 

.0 

AV  AHIP 

223.3 

20. 2X 

2,947.8 

-29. 8X 

.0 

.ox 

.0 

.ox 

10 

AV  APACHE 

1,479.4 

.OX 

10,381.3 

.OX 

102.4 

.ox 

.0 

.ox 

11 

AV  8L-HAMK 

539.6 

.OX 

15,609.4 

.ox 

23.1 

.ox 

.0 

.ox 

12 

AV  CHINOOK 

113.5 

.OX 

3,208.3 

-1.0X 

.0 

.ox 

.0 

.ox 

13 

PEO  Total 

2,355.8 

32,146.8 

125.5 

.0 

14 

15 

ttC  ADOS 

357.0 

.OX 

2,801.0 

.ox 

.0 

.ox 

.0 

.ox 

16 

PEO  Total 

357.0 

2,801.0 

.0 

.0 

17 

18 

COM  MSE 

.0 

.OX 

4,643.5 

-2.6X 

.0 

.ox 

.0 

.ox 

19 

COM  SINCGAR 

183.1 

.OX 

6,344.2 

.OX 

.0 

.ox 

.0 

.ox 

20 

PEO  Total 

183.1 

10,987.7 

.0 

.0 

21 

22 

CS  FMTV 

205.1 

.OX 

15,888.0 

.OX 

.0 

■OX 

.0 

.ox 

23 

CS  PIS 

39.0 

-2. IX 

1,958.0 

5.7X 

.0 

•  OX 

.0 

.ox 

24 

PEO  Total 

244.1 

17,846.0 

.0 

.0 

25 

26 

FS  INSIGHT 

172.8 

6. OX 

5,479.6 

15.8X 

.0 

.ox 

.0 

.ox 

27 

FS  TACMS 

571.8 

•  4X 

1,045.7 

-1.9X 

4.6 

.ox 

.0 

.ox 

28 

PEO  Total 

744.0 

6,525.3 

4.6 

.0 
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.OX 

4,773.4 
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.0 
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.OX 

2 

AD  PATRIOT 

1,554.0 

.OX 

3,286.2 

.OX 

65.0 

.ox 

.0 

.ox 

3 

/ 

PEO  Total 

1,851.8 

8,059.6 

65.0 

.0 

H 

5 

ASM  ABRAMS 

730.7 

•  2X 

7,202.9 

-.3X 

9.0 

.ox 

.0 

.ox 

6 

7 

PEO  Total 

730.7 

7,202.9 

9.0 

.0 

f 

8 

AV  AH  IP 

210.3 

14. 9X 

2,025.6 

-29.3X 

.0 

.ox 

.0 

.ox 

9 

AV  APACHE 

818.4 

.OX 

3,158.7 

.OX 

36.0 

.ox 

.0 

.ox 

10 

AV  Bl-HAUK 

384.0 

.OX 

3,899.6 

.ox 

7.1 

.ox 

.0 

.ox 

11 

AV  CHINOOK 

86.3 

.OX 

1,317.7 

-2.3X 

.0 

.ox 

.0 

.ox 

12 

PEO  Total 

1,499.0 

10,401.6 

43.1 

.0 

13 

14 

C4C  ADOS 

306.0 

.OX 

1,771.0 

.OX 

.0 

.ox 

.0 

.ox 

15 

PEO  Total 

306.0 

1,771.0 

.0 

.0 

16 

17 

COM  MSE 

.0 

.OX 

4,030.4 

-8.4X 

.0 

.ox 

.0 

.ox 

18 

COM  SINCGAR 
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.OX 

3,969.2 

.ox 

.0 

.ox 

.0 

•  OX 

19 

PEO  Total 

190.5 

7,999.6 

.0 

.0 

20 

21 

CS  FMTV 

144.7 

.OX 

8,099.1 

.ox 

.0 

.ox 

.0 

.ox 

22 

CS  PIS 

38.2 

-2.4X 

1,666.1 

-1.9X 

.0 

.ox 

.0 

.ox 

23 

PEO  Total 

182.9 

9,765.2 

.0 

.0 

24 

25 

FS  INSIGHT 

187.0 

1.9X 

3,983.1 

-.3X 

.0 

•  OX 

.0 

.ox 

26 

FS  TACMS 

568.8 

.3X 

852.6 

-1.6X 

3.8 

.ox 

.0 

.ox 

27 

PEO  Total 

755.8 

4,835.7 

3.8 

.0 

28 

29 

LHX  LHX 

2,807.1 

.OX 

.0 

.ox 

.0 

.ox 

.0 

.ox 

30 

PEO  Total 

2,807.1 

.0 

.0 
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Program  Unit  Cost  Report 


NBC250A 

INSIGHT  as  of  12/31/89  (UCR) 


Class:  CUj 


12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


Program  Unit  Cost  Report 
INSIGHT 

.  Current  Year  . 

Current  Est  UCR  Baseline 
DEC  89  SAX  OEC  88  SAR 

Program  Acquisition: 

Cost 

Quantity 
Unit  Cost 

Current  Procurement: 

Cost 

less  CY  Adv  Proc 
Plus  PY  Adv  Proc 

Net  Total 

Quantity 
Unit  Cost 


6,527.3 

364,802 

.018 

FY  1990 
101.8 
.0 
.0 


101.8 

1,725 

.059 


5,831.6 

418,293 

.014 

FY  1990 
101.8 
.0 
.0 


101.8 

1,725 

.059 


28.34X 


0.00X 


Percent 

Change 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 


Program  Unit  Cost  Report 


NBC250B 

AMRAAM  as  of  12/31/88  (UCR)  Class:  [U] 

Program  Unit  Cost  Report 

AMRAAM 

.  Current  Year  . 

Current  Est  UCR  Baseline 
DEC  88  SAR  DEC  87  SAR 

Program  Acquisition: 

Cost 

Quantity 
Unit  Cost 

Current  Procurement: 

Cost 

Less  CY  Adv  Proc 
Plus  PY  Adv  Proc 

Net  Total 

Quantity 
Unit  Cost 


11,593.9 

11,199.2 

24,431 

24,431 

.475 

.458 

FY  1989 

FY  1989 

835.7 

839.4 

.0 

.0 

.0 

.0 

835.7  839.4 


3.52% 


900  1,096 

.929  .766  21.24% 


Per:ent 

Change 


‘8C000.  SQL 


Thursday,  October  11,  1990  3:54  pm 


1  start  setoff 

2 

3  HOST  DEL  M8CVPRM 

4  HOST  CLS 

5  HOST  ECHO  ...  Generating  Program  Baseline  Cost  files 

6 


7 

set 

space  0 

8 

set 

nunwidth  6 

9 

10 

col 

coll 

format 

990 

11 

col 

col2 

format 

99,999.0 

12 

col 

col3 

format 

99,999.0 

13 

col 

col4 

format 

99,999.0 

14 

col 

col5 

format 

999.0 

15 

col 

col6 

format 

99,999.0 

16 

col 

col  7 

format 

99,999.0 

17 

col 

col8 

format 

999.0 

18 

19  drop  table  mbc_allcl; 

20  create  table  mbc_allcl 

21  (class  char(3), 

22  count 1  number, 

23  rep_no  char(3)); 

24 


25 

start 

mbc210s 

dev 

1.15 

210 

26 

start 

mbc210s 

proc 

1.05 

211 

27 

start 

mbc210s 

mi  Icon 

1.05 

212 

28 

start 

mbc210s 

oma 

1.05 

213 

29 

30 

start 

mbc220 

31 

start 

mbc220s 

proc 

1.05 

221 

32 

start 

mbc220s 

mi  Icon 

1.05 

222 

33 

start 

mbc220s 

oma 

1.05 

223 

34 

35 

start 

mbc24x 

then 

240 

36 

start 

mbc24x 

base 

241 

37 

38 

start 

mbc230 

39 

40  set  space  1 

41  spool  mbc250dd.sql 

42  select  'start  mbc25xx' , 'MBC250' |  |ext,pno,quantityno 

43  from  mbc230  a,  drilldown  b  where  a.seq_no  =  I 

44  order  by  short_peo,  short_pna,  quant ityno; 

45  spool  off 

46  start  mbc250dd; 

47  set  space  0 

48 

49  update  mbc_allcl  set  class  =  '0'  where  class  is  null, 

50  start  mbcOlO; 

51 

52  rem  edit  mbe*.* 

53  start  seton 

54  exit 


i 


submi tdate 
i.ind 


MBC010 . SQL 


Thursday,  October  11,  1990  3:54  pm 


1  re*  Ssetoff 

2  set  numwidth  5 

3  drop  table  itocgraph; 

4  create  table  mbcgraph 

5  (nuel  matter, 

6  nua2  matter, 

7  mm3  matter, 

8  seq.no  matter); 

9  insert  into  mbcgraph ( seq_no )  values(l); 

10  insert  into  mbcgraph(seq_no)  values<2); 

11  insert  into  mbcgraph (seq_no)  valut  3); 

12  insert  into  nfecgraph(seq_no)  values(4); 

13  update  mbcgraph  set 

14  mail  *  (select  countl  from  *fec_altcl  where  rep_no  *  *210'), 

15  mm3  =  (select  countl  from  «bc_al lei  where  rep_no  =  '220'), 

16  mm2  *  (select  count(*)  fro*  baseline_cost  where  devcost_base  >  0) 

17  where  seq_no  ■  1; 

18 

19  update  mbcgraph  set 

20  numl  *  (select  countl  from  mbc_allcl  where  rep_no  *  '211'), 

21  mm3  *  (select  countl  from  mbc_allcl  where  rep_no  *  '221'), 

22  mm2  *  (select  count(*)  from  baseline_cost  where  proccost_base  >  0) 

23  where  seq_no  *  2; 

24 

25  update  mbcgraph  set 

26  mml  *  (select  countl  from  mbc_allcl  where  rep_no  =  '212*), 

27  mm3  «  (select  countl  fro*  mbc_allct  where  rep_no  =  '222'), 

28  mm2  =  (select  count(*)  from  baseline_cost  where  milconcost_base  >  0) 

29  where  seq_no  ■  3; 

30 

31  update  mbcgraph  set 

32  mml  =  (select  countl  from  mbc_allcl  where  rep_no  *  '213'), 

33  mm3  =  (select  countl  from  nbc_allcl  where  rep_no  *  '223'), 

34  mm2  -  (select  count(*)  from  base l  ine_cost  where  omscost_base  >  0) 

35  where  seq_no  =  4; 

36 

37  spool  mbcOIO.prn 

38  select  “  from  dual; 

39  select  'Headers  for  HBC010,  HBC210,  MBC220,  MBC230  and  HBC240'  from  dual; 

40  select  "  from  dual; 

41  select  "  from  dual; 

42  select  "  from  dual; 

43  select  "  from  dual; 

44  select  "  from  dual; 

45  select  "  from  dual; 

46  select  "  from  dual; 

47  select  "  from  dual; 

48  select  'Cross-Program  Review  Program  Cost  Menu'  from  dual; 

49  select  distinct  '  as  of  ',to_char(max(submitdate), 'Hon  YT') 

50  from  latest_submission; 

51  select  "  from  dual; 

52  select  "  from  dual; 

53  select  'HBC210'  from  dual; 

54  select  'Cross-Program  Review  as  of  ' | | to_char(max(a.submi tdate), 'Hon  YY')|| 

55  '  Class  I' | |decode(max(b. class), '2','S','1','C','U')||'1'  rowl 

56  from  latest_submission  a,  mbc_allcl  b  where  b.rep_no  =  '210'; 
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select  'ROTE  Program  Cost  Breaches'  from  dual; 

select  "  from  dual; 

select  'Breach  Threshold:'  from  dual; 

select  •  BY  BY  BY  PM  TY  TY  PM'  fro*  dual; 

select  'PEO  Program  BY  Baseline  Threshold  Estimate  X  Chng  Baseline  Estimate  X  Chng'  from  dual; 

select  "  fro*  dual; 

select  "  from  dual; 

select  ' '  from  dual; 

select  'MBC211'  from  dual; 

select  'Cross-Program  Review  as  of  ' | |to_char(max(a.submitdate), 'Mon  YY')|| 

'  Class  t' | |decode(max(b. class), ‘2','S'f'1','C',‘U')||']'  rowl 

from  latest_submission  a,  mbc_allcl  b  where  b.rep_no  *  *211'; 

select  'Procurement  Program  Cost  Breaches'  from  dual; 

select  "  from  dual; 

select  'Breach  Threshold:'  from  dual; 

select  '  BY  BY  BY  PM  TY  TY  PM*  from  dual; 

select  'PEO  Program  BY  Baseline  Threshold  Estimate  X  Chng  Baseline  Estimate  X  Chng'  from  dual; 

select  "  from  dual; 

select  ' '  from  dual; 

select  "  from  dual; 

select  'MBC212'  from  dual; 

select  'Cross-Program  Review  as  of  ' | |to_char(max(a.submitdate), 'Mon  YY')|| 

'  Class  C | |decode(max(b. class), '2‘, 'S' , 1 1 1 , 'C' , *U ' > | | *3 1  rowl 

from  latest_submission  a,  mbc_allcl  b  where  b.rep_no  =  '212'; 

select  'Mi  Icon  Program  Cost  Breaches'  from  dual; 

select  11  from  dual; 

select  'Breach  Threshold:'  from  dual; 

select  •  BY  BY  BY  PM  TY  TY  PM'  from  dual; 

select  'PEO  Program  BY  Baseline  Threshold  Estimate  X  Chng  Baseline  Estimate  X  Chng'  from  dual; 

select  1 '  from  dual; 

select  "  from  dual; 

select  "  from  dual; 

select  'MBC220'  from  dual; 

select  'Cross-Program  Review  as  of  ' | |to_char(max(a.submi tdate), 'Mon  YY')| | 

•  Class  [' | |decode(max(b. class), ,2'>,S,,'1','C,,,U,)||,J,  rowl 

from  latest_submission  a,  mbc_allcl  b  where  b.rep_no  =  ' 220 1 ; 

select  'ROTE  Potential  Program  Cost  Breaches  1  from  dual; 

select  ' '  from  dual; 

select  'Breach  Threshold:'  from  dual; 

select  '  BY  BY  BY  PM  TY  TY  PM*  from  dual; 

select  'PEO  Program  BY  Baseline  Threshold  Estimate  X  Chng  Baseline  Estimate  X  Chng'  from  dual; 

select  ' '  from  dual; 

select  "  from  dual; 

select  "  from  dual; 

select  ‘MBC221 1  from  dual; 

select  'Cross-Program  Review  as  of  ' | | to_char(max(a.submitdate), 'Mon  YY')|| 

'  Class  t,||decode(max(b.class),'2','S',,1,f'C,,'U,>||,},  rowl 

from  latest_submission  a,  mbc_allcl  b  where  b.rep_no  =  '221'; 
select  'Procurement  Potential  Program  Cost  Breaches'  from  dual; 
select  "  from  dual; 
select  'Breach  Threshold:1  from  dual; 

select  •  BY  BY  BY  PM  TY  TY  PM'  fro*  dual; 

select  'PEO  Program  BY  Baseline  Threshold  Estimate  X  Chng  Baseline  Estimate  X  Chng'  from  cfcial; 

select  ' '  from  dual; 
select  ' '  from  dual; 
select  "  from  dual; 
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select  'M8C222'  from  dual; 

select  'Cross-Program  Review  as  of  ' | |to_char(max(a.sufamitdate), 'Non  YY')|| 
•  Class  (' | |decode(max(b. class), '2‘, 'S', '1', 'C*. *U' )| | 'J •  rowl 

froa  latest_submission  a,  nbc_allcl  b  where  o. repno  *  '222'; 


select 

select 

select 

select 

select 

select 

select 

select 

select 

select 


Nilcon  Potential  Program  Cost  Breaches  1  froa  dual; 
■  froa  dual; 

Breach  Threshold:'  froa  dual; 

BY  BY  BY  PN 

BY  Baseline  Threshold  Estiaate  X  Chng 


PEO  Progr 
'  froa  dual; 

‘  froa  dual; 

'  froa  dual; 

NBC230'  froa  dual; 

Cross-Prograa  Review  as  of  ' | |to_char(max(a.submitdate), 'Non  YY') 
'  Class  [' | |decode(max(b. class), '2' , ‘S' , '1' , 'C' ,'U')| | * 1 '  rowl 

froa  latest_submission  a,  mbcallcl  b  where  b.rep_no  *  '230'; 


TY  TY  PN*  froa  dual; 
Laseline  Estiaate  X  Chng'  froa  dual; 


select 

select 

select 

select 

select 

select 

select 

select 

select 

select 

select 

■ 


UCR  End  Item 
Date  Description 


Program 
Acqui stn 


UCR  Breaches'  from  dual; 

'  from  dual; 

SAR 
Baseline 
PEO  Prograa  Date 
'  from  dual; 

'  from  dual; 

'  from  dual; 

'  from  dual; 

MBC240'  from  dual; 

Cross-Program  Review  as  of  • | |to_char(max(a.submitdate), 'Non  YY'> 
Class  ['  |  |decode(roax(b. class),  '2',  'S',  '1','C,  'U')|  | '] '  rowl 


Current' 
X  Procrmnt 


from  dual; 

X'  from  dual; 


Unit  Cst  Change  Unit  Cst  Change*  from  dual; 


from  latest_submission  a,  mbc_allcl  b  where  b.rep_r»o  =  '240'; 


select 

select 

select 

select 

select 

select 

select 

select 

select 

select 

select 

select 

select 

select 


Program  Baseline  Cost  by  Program/PEO'  from  dual; 
Then  Year  Dollars'  from  dual; 

ROTE  Procurement 


NILCON 


Latest 
Baseline  Est-X 


Latest 


Latest 


0HA'  from  dual; 

- . - '  from  dual; 

Latest'  from  dual; 


Baseline  Est-X  Baseline  Est-X  Baseline  Est-X  '  from  dual 


PEO  Program 
1  from  dual; 

'  from  dual; 

'  from  dual; 

'  from  dual; 

'  from  dual; 

'  from  dual; 

N8C241 '  from  dual; 

Cross-Program  Review  as  of  ' | |to_char(max(a.submitdate), 'Non  YY')| 
•  Class  f | |decode(max(b. class), '2','S','1','C','U')j|']'  rowl 

from  latest_submission  a,  mbc_allcl  b  where  b.rep_no  =  '241'; 


select 

select 

select 

select 

select 

select 

select 

select 

select 

select 

select 


Program  Baseline  Cost  by  Program/PEO'  from  dual; 
Base  Year  Dollars'  from  dual; 

ROTE  Procurement 


Latest 

PEO  Program  BY  Baseline  Est-X 
'  from  dual; 

'  from  dual; 

'  from  dual; 

'  from  dual; 

'  from  dual; 


NILCON  0NA'  from  dual; 

- - - - - - — . i  from  dual; 

Latest  Latest  Latest'  from  dual; 

Baseline  Est-X  Baseline  Est-X  Baseline  Est-X  1  from  dual; 


H8C010.SQL 


Thursday,  October  11,  1990  3:54  pm 


169  select  "  fro*  dual; 

170  select  "  fro*  dual; 

171  select  'MBC213'  fro*  dual; 

172  select  'Cross-Progra*  Review  as  of  ' | jto_char(max(a.sub*itdate), 'Hon  Yt' )| | 

173  '  Clasa  C | |decode(*ax(b.class), '2' . 'S' , '1 • , 'C' ,  *U')| | •  rowl 

174  from  latest_sub*ission  a,  abc_allcl  b  where  b. rep_.no  ■  '213'; 

175  select  'OMA  Program  Cost  Breaches'  from  dual; 

176  select  "  fro*  dual; 

177  select  'Breach  Threshold:'  fro*  dual; 

178  select  •  BY  BY  BY  PM  TY  TY  PM'  fro*  dual; 

179  select  'PEO  Program  BY  Baseline  Threshold  Estimate  X  Chng  Baseline  Estimate  X  Chng'  from  dual 

180  select  '  '  from  dual; 

181  select  "  fro*  dual; 

182  select  "  from  dual; 

183  select  'MBC223'  fro*  dual; 

184  select  'Cross-Program  Review  as  of  ' | |to_char(max(a.sub*itdate), 'Mon  YY')|| 

185  '  Class  [' | |decode(max(b. class), '2','S'f'1','C','U')||']'  roul 

186  from  latestsubmi ssion  a,  mbcallct  b  where  b.rep_no  =  '223'; 

187  select  'OMA  Potential  Program  Cost  Breaches'  from  dual; 


188 

select 

"  from  dual; 

189 

select 

'Breach  Threshold:'  from  dual; 

190 

select 

* 

BY 

BY 

BY  PM 

TY  TY  PM'  from  dual; 

191 

select 

■PEO  Program  BY 

Baseline 

Threshold  Estimate  X  Chng 

Baseline  Estimate  X  Chng'  from  dual 

192 

select 

'  '  from  dual; 

193 

select 

' '  from  dual; 

194 

select 

' '  from  dual; 

195 

select 

'  Actual 

ft  of  Potential 

i 

from  dual; 

196 

select 

'  Breaches 

Progs  Breaches 

i 

from  dual; 

197 

set  space  0 

198 

select 

'  ' , numl , ' 

' ,num2, ' 

• ,  mm3 

from 

mbcgraph  where 

seq_no  *  1; 

199 

select 

'  '.mini.' 

'.mm2,' 

',num3 

from 

mbcgraph  where 

seq_no  »  2; 

200 

select 

'  ' ,  mini , 1 

'  .mm2, ' 

' ,  mm3 

from 

mbcgraph  where 

seq_no  «  3; 

201 

select 

'  ' ,  mini , ' 

' , mm2, ' 

1  .mm3 

from 

mbcgraph  where 

seq_no  =  4; 

202 

select 

•  0 

0  0 

■  from  dual; 

203  spool  off; 

204  rem  flseton 

205  rem  edit  mbcOIO.* 
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•  28 
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35 

36 

37 

38 

39 

#  40 

41 

42 

43 

44 

45 

•  46 

47 

48 

49 

50 

51 

•  » 


spool  nbc220.prn 

select  short_peo,'  ',  short jana,  1  1 1 |substr(baseyear,3,2)  coll,  devcost_base  col2, 1 

devcost_base  *  1.15  col3,'  1 ,  pMdevcost_base  col4, 

decode(devcost_base,0,0,(pmdevcost_base-devcost_base)/devcost_base*100)  col5, 'X 
devcost_then  col6,  pmdevcostthen  col7, 

decode(devcost_then,0,0,(pmdevcost_then-devcost_then)/devcost_then*100)  col8, 'X 
from  peo  a,  program  b,  base l ine_cost  c 
where  a.peo_no  *  b.peono 

and  a.submitdate  *  (select  max( submitdate)  from  peo 

where  peo_no  =  a . peono ) 

and  b.pno  *  c.pno 

and  b.submitdate  =  (select  submitdate  from  latest_submission 

where  pno  =  b.pno) 

and  b.pno  *  c.pno 

and  c. submitdate  *  b.submitdate 

and  c.pmdevcost_base  >*  devcost_base  *  1.10 

and  c.pmdevcost_base  <  devcost_base  *  1.15 

and  devcost_base  !*  0 

order  by  short_peo,  shortjxia,  c. quant ityno; 
select  ‘  1  from  dual; 

spool  off 

drop  table  mbc2xxct; 
create  table  mbc2xxcl 

(ctassl  char(3), 
class2  char(3)); 

insert  into  mbc2xxcl 

select  devclass_base,  devclass_then 

from  peo  a,  program  b,  basel ine_cost  c 
where  a.peo_no  =  b.peo_no 

and  a.submitdate  a  (select  max(submitdate)  from  peo 

where  peo  no  a  a.peo  no) 

and  b.pno  =  c.pno 

and  b.submitdate  =  (select  submitdate  from  latest_submission 

where  pno  *  b.pno) 

and  b.pno  a  c.pno 

and  c. submitdate  =  b.submitdate 

and  c.pmdevco8t_base  >*  devcostjsase  *  1.10 

and  c.pmdevcost_base  <  devcost_base  *  1.15 

and  devcostbase  1=  0; 

insert  into  mbc_allcl(rep_no)  values( '220' ); 
update  mbc_allcl  set  countl  =  (select  count(*)  from  mbc2xxcl) 
where  rep_no=,220'; 
update  mbc_allcl  set  class  = 

(select  distinct  max(greatest(decode(class1,,S,,,2,,,C,,,1,,,0,), 
decode(class2,  'S'.^'.'C'.'I'.'O'))) 

from  mbc2xxcl) 

where  exists  (select  *  from  mbc2xxcl) 
and  rep_noa'220' ; 
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22 

23 
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26 

27 

28 

29 
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spool  rtx&3.  .prn 

select  short _peo, •  ',  short_pna,  '  ' | |substr(baseyear,3,2)  coll,  41.cost_base  col2, 1 

41.cost_base  *  &2  col3,'  ',  pm41 .costbase  col4, 

decode(41 .cost_base,0,0, (pm41 .cost_base-41 .cost_base)/41 .cost_base*100)  col5, 'X 
41.cost_then  col6,  pmil . cos t_ then  col7, 

decode(41 .cost_then,0,0,(p«41 .cost_then-41 .eost_then)/41 .cost_then*100)  col8, *X 
from  peo  a,  program  b,  basel ine_cost  c 
where  a.peono  *  b.peo  no 

and  a.submitdate  »  (select  max( submitdate)  from  peo 

where  peo_no  *  a .  peo_r>o) 

and  b.pno  *  c.pno 

and  b.submitdate  *  (select  submitdate  from  latest_submission 

where  pno  =  b.pno) 

and  b.pno  =  c .pno 

and  c. submitdate  *  b.submitdate 

and  c.pm41.cost_base  >=  &1.cost_base  *  42 

and  41.cost_base  !=  0 

order  by  short_peo,  short_pna,  c. quant ityno; 
select  1  1  from  dual; 

spool  off 

drop  table  mbc2xxcl; 
create  table  mbc2xxcl 

(ctassl  char(3), 
class2  char(3)); 

insert  into  mbc2xxcl 

select  41.class_base,  41.class_then 

from  peo  a,  program  b,  basel ine_cost  c 
where  a.peono  a  b.peo_no 

and  a.submitdate  =  (select  max( submitdate)  from  peo 

where  peono  =  a.peo_no) 

and  b.pno  a  c.pno 

and  b.submitdate  3  (select  submitdate  from  latest_submission 

where  pno  =  b.pno) 

and  b.pno  =  c.pno 

and  c. submitdate  =  b.submitdate 

and  c.pm41 .cost_base  >=  41.cost_base  *  42 

and  &1 .costbase  1=  0; 

insert  into  mbc_al lcl(rep_no)  values('43'); 
update  mbc_allcl  set  countl  =  (select  count(*)  from  iribc2xxcl) 
where  rep_no=  '43 1 ; 
update  mbc_allcl  set  class  = 

(select  distinct  max(greatest(decode(class1 , 'S' , '2', 'C' , 1 1 1 , 'O' ), 
decode(class2, 'S','2','C','1','0'))) 

from  mbc2xxcl) 

where  exists  (select  *  from  idx2xxcl) 
and  rep_no*'43'; 
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spool  «bc83..prn 

select  short_peo,*  ',  short_pna,  •  • | |siixtr(baseyear,3,2)  coll,  81.cost_base  col2, ' 

81.coat_baae  *  82  col3, 1  1 ,  pm81  .cost_base  col4, 

decode(8l.costJ>ase,0,0,(pm81.cost_base-B1.cost_base)/B1 .cost_base*100)  col 5, 'X 
81.cost_then  col6,  psi81.cost_then  col7, 

decode(81.cost_then,0,0,  (ps»41 .cost_then-i1 ,cost_then)/S1 .cost_then*100)  col8, ‘X 
frost  peo  a,  program  b,  basel ine_cost  c 
where  a.peo_no  *  b.peono 

and  a.submitdate  *  (select  max (submitdate)  frost  peo 

where  peo_no  1  a . peono ) 

and  b.pno  *  c.pno 

and  b. substi tdate  *  (select  subsiitdate  frost  latest_submission 

where  pno  =  b.pno) 

and  b.pno  *  c.pno 

and  c.  substi  tdate  *  b.  subsiitdate 

and  c.pm&l .costbase  >  t1.cost_base 

and  c.pmil .costbase  <  &1.cost_base  *  82 

and  t1.cost_base  ta  0 

order  by  short_peo,  short_pna,  c.quantityno; 
select  '  1  from  dual; 

spool  off 


drop  table  mbc2xxcl; 
create  table  mbc2xxcl 

(classl  char(3), 
class2  char(3)>; 

insert  into  n*>c2xxcl 

select  devclass_base,  devclass_then 

from  peo  a,  program  b,  basel ine_cost  c 
where  a.peo  no  *  b.peo  no 

and  a.submitdate  *  (select  max(sufami tdate)  from  peo 

where  peo_no  *  a.peo_no) 

and  b.pno  *  c.pno 

and  b.submitdate  *  (select  submitdate  from  latest_submission 

where  pno  *  b.pno) 

and  b.pno  =  c.pno 
and  c. submitdate  *  b.submitdate 
and  c.pmt1.cost_base  >  S1.cost_base 
and  c.pm81.cost_base  <  t1.cost_base  *  82 
and  81 .costbase  1=  0; 
insert  into  mbc_allcl(rep_no)  values( '83* ); 
update  mbc_allcl  set  countl  *  (select  count(*)  from  mbc2xxcl ) 
where  rep_no»,83'; 
update  iribc_allcl  set  class  * 

(select  distinct  maxlgreatestldecodelclassl.'S'.^'.'C'.'I'/O'), 
decode(class2, 'S' , '2' , *C' , *1 ' , '0' ))) 

from  mbc2xxcl) 

where  exists  (select  *  from  mbc2xxcl ) 
and  rep_no= '  83 ' ; 
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set  space  0; 
clear  breaks; 


4 

rem  col 

coll  format  999,999,999.0 

5 

rem  col 

col2  format 

999,999,999.0 

6 

rem  col 

col3  format  999,999,999.0 

7 

rem  col 

col4  format  999,999,999.0 

8 

rem  col 

colS  format 

999,999,999.0 

9 

rem  col 

col6  format  999,999,999.0 

10 

rem  col 

col7  foramt  999,999,999.0 

11 

rem  col 

col8  format 

999,999,999.0 

12 

13 

drop  table  mbc24x; 

14 

create 

table  mbc24x 

15 

(short  jaeo 

char(3). 

16 

short_pna 

char(7), 

17 

peono 

char(4). 

18 

coll 

nmberdO.I), 

19 

col2 

nuaber(10,1). 

20 

col3 

nu*ber(10,1). 

21 

col4 

mjmber(10,1). 

22 

col5 

number(10,1). 

23 

col6 

mmber(10,1), 

24 

col7 

number(10,1). 

?5 

coia 

numberdO.I), 

26 

dummy 

char(1). 

27 

quantityno 

char(3). 

28 

classl 

char(3). 

29 

class2 

char(3). 

30 

class3 

char(3). 

31 

class4 

char(3)); 

32 

33 

insert 

into  mbc24x 

34 

select 

short_peo,  shortjpna,  a.peo  no. 

35 

devcost_41  coll. 

36 

decode(devcost_&1 ,0,0, (pmdevcost_41 

37 

proccost_41 

col3, 

38 

decode( proccos t_41 , 0 , 0 , ( pmproccost_ 

39 

mi  lconcost_41  colS, 

40  decode(milconcostJH,0,0,(pmmilconcost_41-mileoncost_&1)/milconcost_&1  *100)  col6, 

41  omacost_&1  col7, 

42  decode(omacost_41,0,0,(pmomacost_41-omacost_41)/omacost_41)  col8, 

43  'O'  dunny,  quantityno,  devclass_41,procclass_41,milconclass_41,omaclass_41 

44  from  peo  a,  program  b,  basel ine_cost  c 

45  where  a.peo  no  =  b.peo_no 

46  and  a.submitdate  3  (select  max(submitdate)  from  peo 

47  where  peo_no  *  a.peo_no) 

48  and  b.pno  3  c.pno 

49  and  b. submitdate  3  (select  submitdate  from  latest_submission 

50  where  prto  3  b.pno) 

51  and  b.pno  3  c.pno 

52  and  b. submitdate  3  c. submitdate 

53  and  (devcost_41  ! 3  0 

54  or  proccost_41  I3  0 

55  or  mi lconcost_41  I3  0 

56  or  omacost_41  !3  0); 
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57 

58 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 

109 

110 
111 
112 


spool  mbcdd.sql 

select  distinct  'start  ifcc24xx  ',  peo_no 
fro*  abc24x; 
spool  off; 
start  mbcdd; 

col  sp  noprint; 
col  spn  noprint; 
col  pn  noprint; 
col  duimy  noprint; 
col  quantityno  noprint; 

break  on  pn  skip  1; 
spool  mbc&2. .prn; 

select  quantityno,  peo  no  pn, short _peo  sp,  short_pna  spn, short _peo, 1  ', 
rpad(short_pna,7)| | •  '|| 

to_char(col1, '99,999.0')  || 
to_char(col2, '999.0')  jj'X  '|| 

to_char(col3, '99,999.0')  j| 
to_char(col4, '999.0' )  ||'X'|| 

to_char(col5, *99,999.0')  || 
to_char(col6, '999.0')  jj'X'|| 

to_char(col7, *99,999.0' )  | j 
to_char(col8, '999.0')  jj'X' 

from  mbc24x  where  dummy  *  'O' 

union 

select  b.quantityno,  b.peo_no  pn,  a.short_peo  sp,  'zzz',  '  PE‘,'0*,'  Total'll 
to_char(col1, *9,999,999.0')  ||<  • | | 

to_char(nul l )  1 1 '  1 1 1 

to_char(col3, *999,999,999. 0')||*  • j  j 
to_char(nul l )  1 1 1  ' 1 1 

to_char(col5, '999,999,999.0' )| j'  • j  j 
to_ehar(null)  ||'  '|| 

to_char(col7, '999,999,999.0* ) | j '  'jj 
to_char(nul l ) | | '  ' 
from  peo  a,  mbc24x  b 
where  dumiy  ■  *1' 

and  rtrinKa.peo_no)  =  rtrim(b.peo_no) 
order  by  3,4,1; 
spool  off 

col  sp  print; 
col  spn  print; 
col  pn  print; 
col  dummy  print; 
col  quantityno  print; 

insert  into  mbc_allcl(rep_no)  values( '42' ); 

update  mbc_allcl  set  countl  =  (select  count(*)  from  mtoc24x  where  dutmy  =  '0') 
where  rep_no* '42 1 ; 
update  mbc_allcl  set  class  ^ 

(select  distinct  maxOreotestldecodelclassl.'S'.^'.'CS'l'.'O'), 

decode(class2,'S','2','C','1','0'), 
decode(class3,'S','2','C','1','0'), 
decode(class4, 'S' , '2', 'C','1', '0'))) 
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113  from  afcc24x  where  chewy  *  •  0 •  J 

114  where  exists  (select  *  f roai  rtx24x  where  ch-ney  «  '0') 

115  and  rep_no»‘42'; 

116 

117  re*  edit  mbc24*.* 
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1  insert  into  mbc24x 

2  select  'zzz'.'K*',  'll', 

3  slmKcoII),  0, 

4  sum<coi3),  0, 

5  sioKcolS),  0, 

6  su»(col7),  0,  '1'  dune y  ,'zzz',1  ' 

7  from  mbc24x 

8  where  peo_no  *  1 11 1 

9  and  dummy  =  'O'; 

10 
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1  start  setoff; 

2  3nbc230 

3  set  space  1 

4  spool  mbc250dd.sql 

5  select  'start  mbc25xx' , 'MBC2501 | |ext,pno,quantityno,submitdate 

6  from  ebc230  a,  drilldown  b  where  a.seq_no  =  b.ind 

7  order  by  short_peo,  short_pna,  quant ityno; 

S  spool  off 

9  start  mbc250dd; 

10  set  space  0 

11  start  seton; 

12  edit  mbc25x.sql  mbc25xx.sql  mbc250?.prn 

13 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


re*  start  setoff; 

drop  table  abc230; 
create  table  «bc230  as 

select  a.peo_no,  b.pno,  a.short_peo,  b.short_pna,  cybldate,  c. submitdate, 
ucrdate,  c. quant ityno,  quannaae,  tpaccecy,  tpqtycecy,  cycedate, 
tpacucrcy,  tpqtyucrcy,  cyccecy,  cyapcecy,  pyapcecy, 
cpqtycecy,  cypcucrcy,  cyapucrcy,  pyapucrcy,  cpqtyucrcy, 
tpaccecy/ tpqtycecy  col6,  tpacucrcy/ tpqtyucrcy  col6a, 

(cyccecy  -  cyapcecy  ♦  pyapcecy)  /  cpqtycecy  col8, 

(cypcucrcy  -  cyapucrcy  ♦  pyapucrcy)  /  cpqtyucrcy  colSa, 

tpqtyclass,  tpacclass,  cpqtyclass,  cypcclass,  pypapclass,  cyapclass, 

cpfycecy,  cpfyucrcy,  1000-1000  seq_no 

fro*  peo  a,  program  b,  ucr  c,  end_i terns  d 

where  a.peono  *  b.peono 

and  a.submitdate  *  (select  max(submitdate)  fro*  peo 

where  peo_no  =  a.peo_no) 

and  b.pno  =  c.pno 

and  b.submitdate  *  (select  submitdate  from  latest_submission 

where  pno  =  b.pno) 

and  b.pno  *  c.pno 

and  c. submitdate  *  (select  max( submitdate)  from  ucr 
where  pno  *  c.pno 

and  quant ityno  ■  c. quant ityno 
and  ucrdate  =  c. ucrdate) 


26  and  b.pno  =  d.pno 

27  and  c.quantityno  ■  d.  quant  ityno 

28  and  tpaccecy  >  0 

29  and  tpqtycecy  >  0 

30  and  tpacucrcy  >  0 

31  and  tpqtyucrcy  >  0 

32  and  cpqtycecy  >  0 

33  and  cpqtyucrcy  >  0 

34  and  cyccecy  -  cyapcecy  ♦  pyapcecy  >  0 

35  and  cypcucrcy  -  cyapucrcy  +  pyapucrcy  >  0; 

36 

37  drop  index  mbc230i; 

38  create  index  nbc230i  on  nfcc230(short_peo,  short _pna,  quantityno); 

39  update  mbc230  set  seq_no  =  rownun 

40  where  short_peo  >=  1  1 

41  and  short_pna  >=  '  ' 

42  and  quantityno  >=  '  1 

43  and  ((col6-col6a)/col6a*100  >=  25.0  or  (col8-col8a)/col8a*100  >*  15.0) 

44 

45  set  space  0; 

46  col  coll  format  a6 

47  col  col2  format  a8 

48  col  col3  format  a19 

49 

50 

51  spool  mbc230.prn 

52  select  short_peo,  '  short_pna,'  to_char(cybldate, 'Hon  YY')  coll,' 

53  to_char(ucrdate, 'HH/00/YY')  col2,  '  '  , 

54  substr(quanname,1,19)  col3, 

55  to_char(col6, '999.990' )| | 

56  to_ehar((col6-col6a)/col6a*100, '999.0') | ] | | 
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57 

to_char(col8, '999.990' )| | 

58 

to_char((col8-col8a)/col8a*100, '999.0' )| | 'X' 

59 

from  abc230 

60 

where  (col6-col6a)/col6a*100  »*  25.0 

61 

or  (col8*col8a)/col8a*100  >*  15.0 

62 

order  by  short _peo,  short_pna,  quant ityno; 

63 

spool  off 

64 

65 

insert  into  mbc_allcl(rep_no)  values('230'); 

66 

update  mbc_allcl  set  couitl  *  (select  count(*)  from  sfcc230) 

67 

where  rep_no» ' 230 ' ; 

68 

update  si>c_al Id  set  class  * 

69 

(select  distinct  max(greatest(decode(tpqtyclass, 'S' , '2' , 

•C','1','0'), 

70 

decoded  pace  lass  ,'S','2', 

•C','1','0'), 

71 

decode(cpqtydass,  'S','2', 

C','1','0'), 

72 

decode( cypcc lass  , 'S','2', 

•C','1','0'), 

73 

decode( pypape l ass , ' S ' , * 2 ' , 

C','1','0'), 

74 

dec ode ( cyapc lass  , 'S','2’, 

C','1','0'))) 

75 

from  mbc230) 

76 

where  exists  (select  *  from  mbc230) 

77 

and  rep_no=*230'; 

78 

79 

retn  edit  mbc230.*  mbc25x.sql 

80 

rem  start  setoff 

81 

rem  set  term  on; 
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1  drop  table  mbc2S0cl; 

2  create  table  atoc2S0ct 

3  (class  char(3), 

4  teq_no  mater); 

5  insert  into  abc250ct(seq_ro)  values(l); 

6  insert  into  abc2S0cl(seq_no)  values(2); 

7  insert  into  ate2S0cl(seq_no)  values(3); 

8  insert  into  ate250cl(seq_no)  values(4); 

9  insert  into  tec250cl(seq_no)  values(5); 

10  insert  into  mbc250cl(seq_no)  values(6); 

11  update  abc250cl  set  class  *  (select  tpqtyclass  frost  abc230 

12  where  pro  *  '42'  and  ltria(quantityno)*ltrim( '13' )  and  subai tdate*' 44') 

13  where  seq_no*1; 

14  update  abc250cl  set  class  *  (select  tpacclass  front  wbc230 

15  where  pro  *  '42'  and  ltri«Kquantityno)*ltrinK '43' )  and  subai  tdate* '44') 

16  where  seq_no*2; 

17  update  nte250cl  set  class  *  (select  cpqtyclass  from  nbc230 

18  where  pro  *  '42'  and  ltrim(quantityno)=ltrim( '43‘ )  and  subai tdate* '44') 

19  where  seq_no*3; 

20  update  mbc250cl  set  class  *  (select  cypcclass  from  nbc230 

21  where  pro  *  '42'  and  ltrim(quantityno)=ltrim( '43' )  and  subai tdate* 1 44 1 ) 

22  where  seq_no*4; 

23  update  mbc250cl  set  class  *  (select  pyapclass  from  mbc230 

24  where  pro  *  '42'  and  ltrisKquantityno)*ltriai( '43' )  and  subai tdate*' 44') 

25  where  seq_no=5; 

26  update  mbc250cl  set  class  =  (select  cyapclass  from  mbc230 

27  where  pro  *  '42'  and  ItrinKquontitynoWtrimeSS')  and  sttei tdate*' 44') 

28  where  seq_no*6; 

29  spool  41..prn 

30  select  "  from  dual; 

31  select  • '  from  dual; 

32  select  "  from  dual; 

33  select  "  from  dual; 

34  select  11  from  dual; 

35  select  'Program  Unit  Cost  Report  1  from  cfcjal; 

36  select  1  '  from  dual; 

37  select  "  from  dual; 

38  select  "  from  dual; 

39  select  '41*  from  dual; 

40  select  distinct  rpad(short_pna,7) 1 1 1  as  of  ' | |to_ehar(ucrdate, 'Mh/DO/YY') | | '  (UCR)  Class:  I' 

41  ||decode<clasa,'S','S','C','C','U')||'l'  rowl  from  ate230,  mbc250el 

42  where  pro  *  '42'  and  ltrim(quantityno)*ltrim( '43' )  and  subai tdate* '&4' 

43  and  decode(class,'S',2,'C',1,0)  * 

44  (select  max(decode(class,'S',2,'C',1,0))  from  mbc250cl); 

45  select  'Program  Unit  Cost  Report  '  from  dual; 

46  select  quanrume  from  mbc230  . 

47  where  pro  *  '42'  and  ltrim(quantityno)=ltrim( '43' )  and  subnitdate='&4'; 

48  select  '  . Current  Year -  '  from  dual; 

49  select  '  Current  Est  UCR  Baseline  Percent'  from  dual; 

50  select'  ' | |to_char(cycedate, 'MOh  YY')||'  SAR  ' | |to_ehar(cybldate, 'MOM  YY')  1 1 '  SAR 

'  rowl  from  mbc230 

51  where  pro  *  '42*  and  ltrim(quantityno)*ltrim('&3')  and  subai tdate*'&4'; 

52  select  'Program  Acquisition: '  from  dual; 

53  select  '  Cost  '  from  <*jal; 

54  select  '  Quantity  '  from  dual; 

55  select  '  Unit  Cost  '  from  dual; 
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56  select  "  fro*  dual; 

57  select  ‘Current  Procurement:  '  from  dual; 

56  select  1  Coat  1  from  dual; 

59  select  1  Leas  CY  Adv  Proc  1  from  dual; 

60  select  1  Plus  PY  Adv  Proc  1  from  dual; 

61  select  1  1  from  dual; 

62  select  1  Net  Total  '  from  dual; 

63  select  "  from  dual; 

64  select  1  Quantity  1  from  dual; 

65  select  1  Unit  Cost  '  from  dual; 

66  select  "  from  dual; 

67  select  11  from  dual; 

68  select  "  from  dual; 

69  select  "  from  dual; 

70  select  '  ' ,to_char(tpaccecy, '999,999.0' ), •  ', to_char(tpacucrcy, '999, 999.0')  from  afcc230 

71  where  pno  «  '42'  and  ltrinKquantityno)*ltrim< '43' )  and  submi tdate«'44'; 

72  select'  ' ,to_char(tpqtycecy, '999,990' ), '  ',to_char(tpqtyucrcy, '999,990')  from  obc230 

73  where  pno  *  '42'  and  ltrim<quantityno)3ltrim< *43' )  and  submi tdate*' 44'; 

74  select  •  ' ,to_char(col6, '999.990' ), '  ' ,to_char(col6a, '999.990'),'  *,to_char(round((col6-col6a)/col6a*100,2), '9990 

.90* ) | | 'X'  from  mbc230 

75  where  pno  *  '42'  and  ltrim(quantityno)=ltrim( '43')  and  submi tdate* '44'; 

76  select  "  from  dual; 

77  select  '  FY'.cpfycecy, '  FY' ,cpfyucrcy  from  mbc230 

78  where  pno  *  *42'  and  ltrim(quantityno)*ltrim<'43')  and  submi tdate* '44*; 

79  select  '  ',to_char(cyceecy, '999,999.0'),'  ',  to_char(eypcucrcy, '999,999.0')  from  mbc230 

80  where  pno  *  '42'  and  ltrim(quantityno)*ltrim< '43' )  and  submi tdate* '44'; 

81  select  ■  ',to_char(cyapcecy,'999,999.0'),'  ',  to_char(cyapucrcy, '999,999.0' )  from  nbc230 

82  where  pno  =  '42'  and  ltrim(quantityno)*ltrim< '43' )  and  submitdate*'44'; 

83  select  •  ' ,to_char<pyapcecy, *999,999.0' ), '  ',  to_char<pyapucrcy, '999,999.0')  from  mbc230 

84  where  pno  «  '42'  and  ltrim(quantityno)*ltrim( '43' )  and  8ubmi tdate* '44'; 

85  select  '  .  . from  dual; 

86  select  •  ' , to_char(cyccecy-cyapcecy*pyapcecy, '999,9°9.0' ),  ■  ' , to_char(cypcucrcy-cyapucrcy+pyapucrcy, '999,999.0' )  from 

mbc230 

87  where  pno  =  *42'  and  ltrim(quantityno)*ltrim('43')  and  submi tdate* '44'; 

88  select  "  from  dual; 

89  select  '  ',to_char(cpqtycecy,'9,999,990'),  •  ',to_char(cpqtyucrcy, '9,999,990')  from  *bc230 

90  where  pno  =  '42'  and  ltrim<quantityno)«ltrim('43')  and  submi tdate*' 44'; 

91  select  '  ' ,to_char((cyccecy- cyapcecy+pyapeecy)/cpqtycecy, '999.990'), 

92  '  ',to_char((cypcucrcy-cyapucrey*pyapucrcy)/cpqtyucrcy, '999.990'), 

93  '  ' | |to_char(round((((cyccecy-cyapcecy+pyapcecy)/cpqtycecy- 

94  (cypcucrcy-cyapucrcy+pyapucrcyj/cpqtyucrcy)/ 

95  ((cypcucrcy-cyapucrcy+pyapucrcy)/cpqtyucrcy))*100,2), '9990.90' )| | 'X' 

96  from  mbc230 

97  where  pno  =  '42'  and  ltrim<«|uantityno)=ltrim( '43' )  and  submi  tdate*1 44'; 

98  spool  off; 
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AAMS  PHASE  III  PROGRAM  SPECIFICATIONS 
Report  Generation 
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Congressional  Status 

Report  File  Names:  (all  end  with  extension  PRN) 

MCS010 

MCS210 

MCS220 

MCS230 

Purpose:  Congressional  Status  reports  will  be  sorted  by  PEO,  program,  SSNPE  and 

nomenclature  and  will  consist  of  a  multiple  line  display.  The  displayed  information  will 
include  the  PEO,  program,  fiscal  year,  Army  request,  SSN  PE,  nomen,  appropriation 
HASC  change,  SASC  change,  AS  Conference  change,  HAC  change,  SAC  change  and 
Appropriation  change. 


General:  The  CONGRESS  table  will  always  contain  for  each  committee  for  the  latest  fiscal  year, 

either  NULL  for  all  records  or  some  value  for  all  records.  However,  if  any  committee 
contains  a  mixture  of  NULL’s  and  values  for  its  records  for  the  latest  fiscal  year  then 
that  committee  will  be  updated  with  the  Presidential  Budget  value  for  all  its  records 
before  Congressional  Status  report  generation. 


MCS010 


Text  report  that  contains  headers  for  all  Congressional  Status  reports  and  calculations 
for  the  chart  displayed  on  the  MCS010  screen. 

#1)  Each  header  contains  the  latest  date  from  the  AUDATE  or  APDATE  from  the 
CONGRESS  table. 

#2)  Each  header  contains  the  highest  classification  from  all  the  records  selected  for  its 
related  report  file. 

#3)  Each  header  contains  the  latest  fiscal  year  found  in  the  CONGRESS  table. 

The  remaining  calculations  for  MBC010  pertain  to  the  chart  on  the  MBC010  screen. 
This  chart  displays  the  congressional  marks  against  the  requested  program. 

Only  consider  those  records  from  CONGRESS  table  which  are  unique  across  all  PNO’s 
using  the  latest  FY.  (i.e.  all  Unique  SSN  PE  and  NOMEN  for  the  latest  FY). 

If  any  committee  has  all  NULL  values  for  all  the  selected  records  then  print  a  zero  for 
in  place  of  its  related  calculation. 

#4)  Fixed  text ’O’ 

#5)  Sum  of  PRES  BUDGET 
#6)  Sum  of  HASCT  BUDGET 
#7)  Sum  of  SASC  "BUDGET 
#8)  Sum  of  ASCJT  BUDGET 
#9)  Sum  of  HAC  BUDGET 
#10)  Sum  of  SAC~BUDGET 
#11)  Sum  of  ACJT_BUDGET 


FORMAT:  MCS010 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 

Except  as  noted  below  the  text  for  this  report  file  is  fixed  as  shown  on  attached  sample. 
(See  sample  for  formatting  information). 

Calculations  (#1  and  #3)  will  appear  on  line  7,41,52,  and  62. 

LJ  Col  23-28  =  #  1  (after  words  ’as  of  ’  using  [Mon  YY]  format) 

LJ  Col  3-4  =  #3  (after  words  ’FY’  using  [YY]  format) 

Calculations  (#2)  will  appear  on  lines  6, 40, 51  and  61. 

U  Col  50-50  =  #2  (after  text  ’Class:  [’) 

Calculations  (#4)  will  appear  on  lines  10, 14  and  18. 

RJ  Col  20-20  =  #4  (fixed  text  ’O’) 

Calculations  (#5)  will  appear  on  lines  10-18. 

RJ  Col  24-30  =  #5  (Using  [9999999]  format) 

Calculations  (#6)  will  appear  on  lines  11. 

Calculations  (#71  will  appear  on  lines  12. 

Calculations  (#8)  will  appear  on  lines  13. 

Calculations  ( #9)  will  appear  on  lines  15. 

Calculations  (#10)  will  appear  on  lines  16. 

Calculations  (#1‘  will  appear  on  lines  17. 

RJ  Col  14-20  =  #6-#ll  (Using  [9999999]  format) 


MCS210 


Line  items  which  have  received  decrements  from  any  of  the  congressional  committees. 
To  the  left  the  report  displays  the  PEO,  program,  line  item  number,  appropriation, 
nomenclature  and  request.  To  the  right  the  report  displays  the  congressional  marks 
against  the  request. 

The  report  will  be  sorted  by  SHORTPEO,  SHORT  PNA,  SSN  PE,  and  NOMEN. 

Only  consider  those  records  from  the  CONGRESS  table  where  either 
HASC  BUDGET,  SASC  BUDGET,  ASCJT  BUDGET,  HAC  BUDGET, 
SACBUDGET,  or  ACJT_BUDGET  are  less  than  the  PRES_6UDGET. 
Additionally,  all  records  should  be  from  the  latest  fiscal  year  determined  by 
max(CONGRESS.FY). 

If  any  committee  has  all  NULL  values  then  that  committee  should  not  be  compared  to 
PRES  BUDGET  as  a  selection  criteria.  However,  if  a  record  matching  the  selection 
criteria  has  NULL  values  for  any  committee  than  print  blanks  for  that  committee. 

Calculation  Names  Table 

#1)  SHORT  PEO  PEO 

#2)  SHORT  PNA  PROGRAM 

#3)  PRES  BUDGET  CONGRESS 

#4)  NOMEN 

#5)  SSN  PE 

#6)  APPROPRIATION 

#7)  Fixed  text ’Change’ 

#8)  HASC  BUDGET -PRES  BUDGET 
#9)  SASC  "BUDGET  -  PRES  "BUDGET 
#10)  ASCJT  BUDGET -PRES  BUDGET 
#11)  HAC  BUDGET -PRES  BUDGET 
#12)  SAC  "BUDGET  -  PRES  BUDGET 
#13)  ACJT  BUDGET -PRES  BUDGET 


FORMAT:  MCS210 

(Lj  =  Left  Justified,  RJ  =  Right  Justified) 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #1-#13  will  appear  vertically  starting  on  line  1.  Each  record  output  will 
use  3  lines  and  skip  1  line  before  printing  the  next  record. 

LINE  1 

U  Col  1-3  =  #1 
U  Col  7-13  =  #2 

RJ  Col  16-24  =  #3  (Using  [999.999.9J  format) 

LINE  2 

U  Col  1-38  =  #4 

LINE  3 

LJ  Col  2-  7  =  #5  (Trunc  to  6  chars) 

LJ  Col  11-16  =  #6  (Trunc  to  6  chars) 

LJ  Col  18-23  =  #7  (Using  fixed  text  ’Change’) 

RJ  Col  26-33  =  #8  (Using  [99,999.9]  format) 

RJ  Col  35-42  =  #9  (Using  [99,999.9}  format) 

RJ  Col  44-5 1  =#  10  (Using  [99,999.9]  format) 

RJ  Col  53-60  =#11  (Using  [99.999.9]  format) 

RJ  Col  62-69  =  #  12  (Using  [99,999.9]  format) 

RJ  Col  71-78  =  #  13  (Using  [99,999.9]  format) 


Line  items  which  have  received  increments  from  any  of  the  congressional  committees. 
To  the  left  the  report  displays  the  PEO,  program,  line  item  number,  appropriation, 
nomenclature  and  request.  To  the  right  the  report  displays  the  congressional  marks 
against  the  request. 

The  report  will  be  sorted  by  SHORTPEO,  SHORTPNA,  SSNPE,  and  NOMEN. 

Only  consider  those  records  from  the  CONGRESS  table  where  either 
HASC  BUDGET,  SASC  BUDGET,  ASCJT  BUDGET,  HAC  BUDGET, 
SACjSUDGET,  or  ACJTBUDGET  are  greater  than  the  PRESBUDGET. 
Additionally,  all  records  should  be  from  the  latest  fiscal  year  determined  by 
max(CONGRESS.FY). 

If  any  committee  has  all  NULL  values  then  that  committee  should  not  be  compared  to 
PRES  BUDGET  as  a  selection  criteria.  However,  if  a  record  matching  the  selection 
criteria  has  NULL  values  for  any  committee  than  print  blanks  for  that  committee. 

Calculation  Names  Table 


SHORT  PEO  PEO 

SHORT  PNA  PROGRAM 

PRES  BUDGET  CONGRESS 

NOMEN 
SSN  PE 

APPROPRIATION 
Fixed  text  ’Change’ 

HASC  BUDGET -PRES  BUDGET 

sasc  "Budget  -  pres  rudget 

#10)  ASCJT  BUDGET  -  PRES  BUDGET 
HAC  BUDGET -PRES  BUDGET 

sac  "Budget  -  pres  rudget 

ACJT  BUDGET  -  PRES  BUDGET 


FORMAT:  MCS220 

(LJ  =  Left  Justified,  RJ  ==  Right  Justified) 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #1-#13  will  appear  vertically  starting  on  line  1.  Each  record  output  will 
use  3  lines  and  skip  1  line  before  printing  the  next  record. 

LINE  1 

U  Col  1-3  =  #1 
U  Col  7-13  =  #2 

RJ  Col  16-24  =  #3  (Using  {999,999.9]  forma!) 

LINE  2 

LJ  Col  1-38  =  #4 

LINE  3 

LJ  Col  2-  7  =  #5  (Trunc  to  6  chars) 

U  Col  11-16  =  #6  (Trunc  to  6  chars) 

U  Col  18-23  =  #7  (Using  fixed  text  ’Change’) 

RJ  Col  26-33  =  #8  (Using  {99,999.9]  format) 

RJ  Col  35-42  =  #9  (Using  [99,999.9]  format) 

RJ  Col  44-51  =#10  (Using  [99,999.9]  format) 

RJ  Col  53-60  =#  1 1  (Using  [99,999.9]  format) 

RJ  Col  62-69  =  #  12  (Using  [99,999.9]  format) 

RJ  Col  71-78  =#13  (Using  [99,999.9]  format) 


All  reported  line  items.  To  the  left  the  report  displays  the  PEO,  program,  line  item 
number,  appropriation,  nomenclature  and  request.  To  the  right  the  report  displays  the 
congressional  marks  against  the  request.  Line  items  are  grouped  by  Program  and  PEO 
with  totals  at  the  end  of  each  programs  and  at  the  end  of  each  PEO 

The  report  will  be  sorted  by  SHORTPEO,  SHORT  PNA,  SSNPE,  and  NOMEN. 

Only  consider  those  records  from  the  CONGRESS  table  with  the  latest  fiscal  year 
determined  by  max(CONGRESS.FY). 

If  a  record  matching  the  selection  criteria  has  NULL  values  for  any  committee  than 
print  blanks  for  that  committee. 

Break  after  each  Program  and  PEO  and  print  totals  for  the  request  and  all  the 
committees  for  each  Program  and  PEO.  The  PEO  total  line  should  not  include 
duplicate  values  of  the  same  SSN_PE  and  NOMEN  that  was  displayed  for  different 
PNO’s  within  a  PEO.  At  each  break  skip  1  line. 

Calculation  Names  Table 

#1)  SHORT  PEO  PEO 

#2)  SHORT  PNA  PROGRAM 

#3)  PRES  BUDGET  CONGRESS 

#4)  NOMEN 
SSN  PF 

#6)  APPROPRIATION 
#7)  Fixed  text  ’Change’ 

#8)  HASC  BUDGET  -  PRES  BUDGET 

#9)  sasc  "Budget  -  pres  "Budget 

#10)  ASCJT  BUDGET  -  PRES  BUDGET 
#11)  HAC  BUDGET -PRES  BUDGET 
#12)  SAC  RUDGET  -  PRES  "BUDGET 
#13)  ACJT_BUDGET  -  PRE3_BUDGET 

#14)  Fixed  text  TOTAL  PROGRAM’ 

#15)  Total  of  #3  for  each  Program. 

#16)  Total  of  #8  for  each  Program. 

#17)  Total  of  #9  for  each  Program. 

#18)  Total  of  #10  for  each  Program. 

#19)  Total  of  #11  for  each  Program. 

#20)  Total  of  #12  for  each  Program. 

#21)  Total  of  #13  for  each  Program. 

#22)  Fixed  text  TOTAL  PEO’ 

#23)  Total  of  #3  for  each  PEO  (excluding  dups). 

#24)  Total  of  #8  for  each  PEO  (excluding  dups). 

#25)  Total  of  #9  for  each  PEO  (excluding  dups). 

#26)  Total  of  #10  for  each  PEO  (excluding  dups). 

#27)  Total  of  #11  for  each  PEO  (excluding  dups). 

#28)  Total  of  #12  for  each  PEO  (excluding  dups). 


FORMAT:  MCS230 

(LJ  =  Left  Justifled,  RJ  =  Right  Justified) 


The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #1-#13  will  appear  vertically  starting  on  line  1.  Each  record  output  will 
use  3  lines  and  skip  1  line  before  printing  the  next  record  or  next  Total  line. 

LINE  1 

U  Col  1-3  =  #1 
U  Col  7-13  =  #2 

RJ  Col  16-24  =  #3  (Using  [999.999.9]  format) 

LINE  2 

U  Col  1-38  =  #4 

LINE  3 

LJ  Col  2-  7  =  #5  (Trunc  to  6  chars) 

U  Col  1 1-16  =  #6  (Trunc  to  6  chars) 

LJ  Col  18-23  =  #7  (Using  fixed  text  ’Change’) 

RJ  Col  26-33  =  #8  (Using  [99,999.9]  format) 

RJ  Col  35-42  =  #9  (Using  [99,999.9]  format) 

RJ  Col  44-51  =#  10  (Using  [99,999.9]  format) 

RJ  Col  53-60  =#11  (Using  [99,999.9]  format) 

RJ  Col  62-69  =  #  12  (Using  [99,999.9]  format) 

RJ  Col  71-78  =#13  (Using  [99,999.9]  format) 

Calculations  #14-#30  will  appear  at  Program  and  Peo  breaks.  Each  Total  Line  output 
will  use  2  lines  and  skip  1  line  before  printing  the  next  record  or  the  next  Total  line.. 


LINE  1 

U  Col  17-24  =  #30  (Using  fixed  text  ’=  =  =  =  =  =  = =’) 
LJ  Col  26-33  =  #30  (Using  fixed  text  ’=  =  =  =====') 
U  Col  35-42  =  #30  (Using  fixed  text  ’=====  =  ==’) 
LJ  Col  44-51  =  #30  (Using  fixed  text  ’===  =====’) 
U  Col  53-60  =  #30  (Using  fixed  text  ’=  =  =  =  =  =  == ’) 
U  Col  62-69  =  #30  (Using  fixed  text  ’=  =  =  =  =  == =’) 
U  Col  71-78  =  #30  (Using  fixed  text  ’=  =  =  =  =  =  =  =’) 


LINE  3 

U  Col  2-14  =  #14  and  #22 

RJ  Col  16-24  =  #15  and  #23  (Using  [999,999.9]  format, 
RJ  Col  26-33  =  #16  and  #24  (Using  [99,999.9]  format) 
RJ  Col  35-42  =  #17  and  #25  (Using  [99,999.9]  format) 
RJ  Col  44-5 1  =  #  18  and  #26  (Using  [99,999.9]  format) 
RJ  Col  53-60  =  #19  and  #27  (Using  [99,999.9]  format) 
RJ  Col  62-69  =  #20  and  #28  (Using  [99,999.9]  format) 
RJ  Col  71-78  =  #21  and  #29  (Using  [99,999.9]  format) 
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74  TANK, MISER I ES(NOO) 

75  GA0700  -  UTCV  Change  150.0  149.0 

76 

77  ASM  -  ABRAMS  15.0 

78  M1SERIESTANKTRAININGDEVICES 

79  GB1300  -  UTCV  Change  .0  .0 

80 

81  ASM  -  ABRAMS  .0 

82  MARK I NGSYS , CLEARLANE 

83  X00700  -  OPA  Change  .0  .0 

84 

35  SSS3SSS  ========  ========  ==: 

86  TOTAL  PROGRAM  247.7  150.0  112.7 

87 

88 

89  =======  ========  ========  ==; 

90  TOTAL  PEO  247.7  150.0  112.7 

91 

92 

93  AV  •  AH  IP  25.8 

94  ARMEDAHIP 

95  64220  -  ROTE  Change  .0  -25.8 

96 

97  AV  -  AHIP  .0 

98  ARMYHELOIMPPGM(AHIP)ADVPROC 

99  A22200  -  ACFT  Change  .0  .0 

100 

101  AV  -  AHIP  48.0 

102  ARMY HELOIMPROVEMENTPROGRAM( AHIP) 

103  A22200  -  ACFT  Change  .0  -34.8 

104 

105  =======  ========  ========  == 

106  TOTAL  PROGRAM  73.8  .0  -60.6 

107 

108 

109  AV  -  APACHE  60.5 

110  A I RCRAF  TMOOS/PROOUCT I MPRVMTPROGRMS 

111  23744  -  ROTE  Change  .0  .0 

112 
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113 

AV  ■  APACHE 

99.1 

1U 

FOG-MEMGDEV 

115 

64810  -  ROTE 

Chang*  .0 

.0  .0 

.0 

.0 

.0 

116 

117 

AV  -  APACHE 

85.7 

118 

AH-64MOOS 

119 

AA6605  -  ACFT 

Chang*  -65.7 

o 

o 

.0 

.0 

.0 

120 

121 

x  hhiizi 

12223X23  33332233 

XX333XXX 

23X333XX 

X3X3SX2X 

122 

TOTAL  PROGRAM 

245.2  -65.7 

.0  .0 

.0 

.0 

.0 

123 

124 

125 

AV  -  BL-HAUK 

83.5 

126 

UH - 60BLACKHAUKM0DS 

127 

AA0490  -  ACFT 

Change  -5.0 

.0  .0 

.0 

.0 

.0 

128 

129 

SZ3ZZS3  SS33SS8S 

II 

II 

II 

II 

II 

II 

II 

H 

II 

II 

II 

II 

II 

II 

II 

M 

22222X32 

XXX2S33X 

222222X2 

130 

TCTAL  PROGRAM 

83.5  -5.0 

.0  .0 

.0 

.0 

.0 

131 

132 

133 

13SZZZZ  2X3X2233 

2332X332  2X23X233 

23XX22XS 

X3S3Z83X 

II 

II 

M 

II 

II 

II 

M 

II 

134 

TOTAL  PEO 

402.5  -70.7 

-60.6  .0 

.0 

.0 

.0 

135 

136 

137 

C&C  -  ADOS 

21.7 

138 

ARMYOATAO I STR I BUT I ONSYSTEH 

139 

63713  -  ROTE 

Change  .0 

.0  .0 

.0 

.0 

.0 

140 

141 

C&C  -  ADOS 

6.4 

142 

I TEMSLESST  HANS2 . 0M( COMSEC ) 

143 

BL5264  •  OPA 

Change  .0 

.0  .0 

.0 

.0 

.0 

144 

145 

C&C  -  ADDS 

.0 

146 

I TEMSLESSTHANS2 . OM(COMSEC) ( SOF ) 

147 

BL5264  -  OPA 

Change  .0 

o 

o 

.0 

.0 

.0 

148 

149 

C&C  -  ADDS 

22.2 

150 

ARMYOATAO I STR I BUT IONSYSTEM- ADDS 

151 

BUI 400  -  OPA 

Change  .0 

.0  .0 

.0 

.0 

.0 

152 

153 

C&C  -  ADOS 

.0 

154 

ADDSCOMSECSECUREMOOLE<THORNTONKGV8 

155 

T01600  -  OPA 

Change  .0 

.0  .0 

.0 

.0 

.0 

156 

157 

C&C  -  ADDS 

.0 

158 

TSEC/KGV- 1 1  /SECUREMODULE 

159 

T 03200  -  OPA 

Change  .0 

.0  .0 

.0 

.0 

.0 

160 

161 

C&C  -  ADOS 

.0 

162 

ADDSC0MSECKEYGENERAT0R(KG-87) 

163 

T 06200  -  OPA 

Change  .0 

.0  .0 

.0 

.0 

.0 

164 

165 

C&C  -  ADOS 

.0 

166 

ADOSCOMSECKOK-13 

167 

T 06300  -  OPA 

Change  .0 

.0  .0 

.0 

.0 

.0 

168 
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169  CtC  -  ADOS  .0 

170  COMSECMOOULE,TSEC/KGV-13 

171  T 06400  -  OPA  Chans*  .0  .0  .0  .0  .0  .0 

172 

173  UU>»  MSM1M  ===  =====  ==  ======  =======  ======== 

174  TOTAL  PROGRAM  50.3  .0  .0  .0  .0  .0  .0 

175 

176 

177  =======  ========  ========  ========  ========  ========  ======== 

178  TOTAL  PEO  50.3  .0  .0  .0  .0  .0  .0 

179 

180 

181  COM  -  SINCGAR  1.4 

182  C3-ENG0EV 

183  64805  -  ROTE  Change  .0  .0  .0  .0  .0  .0 

184 

185  COM  -  SIHCGAR  .0 

186  ANTENNAGROUPOE-254 

187  B45500  -  OPA  Change  .0  .0  .0  .0  .0  .0 

188 

189  COM  -  SINCGAR  .0 

190  FREQM0DULE.ICGV-10/TSEC 

191  T 995 00  -  OPA  Change  .0  .0  .0  .0  .0  .0 

192 

193  COM  -  SINCGAR  .0 

194  BECS 

195  Z16CJ0  -  OPA  Change  .0  .0  .0  .0  .0  .0 

196 

197  COM  -  SINCGAR  .0 

198  BTFLDELECCOE I SYS(BECS) 

199  Z16800  -  OPA  Change  .0  .0  .0  .0  .0  .0 

200 

202  TOTAL  PROGRAM  1.4  .0  .0  .0  .0  .0  .0 

203 

204 

206  TOTAL  PEO  1.4  .0  .0  .0  .0  .0  .0 

207 

208 

209  FS  -  INSIGHT  40.8 

210  MISSILE/AIROEFENSEPIP 

211  23801  -  ROTE  Change  .0  30.0  .0  .0  .0  .0 

212 

214  TOTAL  PROGRAM  40.8  .0  30.0  .0  .0  .0  .0 

215 

216 

218  TOTAL  PEO  40.8  .0  30.0  .0  .0  .0  .0 

219 

220 
221 


mursosy,  uciooer  n,  imj  J : 30  pm 


START  SETOFF 

HOST  DEL  HCSVPRN 
HOST  CLS 

HOST  ECHO  ...  Generating  Congressional  Status  files  ... 

START  HCS210 
START  NCS220 
START  MCS230 
START  MCS010 

START  SETON 
EXIT 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 


start  setoff 
set  space  0 
set  wrap  on 

spool  mcs210.prn 

select  rpad(rpad(short_peo,3)  ||  1  -  1  ||  rpad(short_pna,7)  ||  1  1  || 
to_char<pres_budget, *999,999.0' ), 78), 
rpad( nomen, 78), 

rpadC  1  ||  substr(ssn_pe,  1,6)  ||  *  -  '  || 

substr(appropriation,1,6)  ||  1  Change  1  || 
to_char(hasc_budget  -pres_budget, '99,999.9' )  || 
to_char(sasc_budget  -pres_budget, '99,999.9' )  || 
to_char(ascjt_budget-pres_budget, *99,999.9' )  | | 
to_char(hac_budget  -pres_budget, '99,999.9' )  || 
to_char(sac_budget  -pres_budget, '99,999.9' )  || 
to_char(acjt_budget  -pres_budget, '99,999.9' ), 78) 
from  peo  a,  program  b,  congress  c 
where  a.peono  =  b.peo_no 

and  a.submitdate  -  (select  max(submitdate)  from  peo 
where  peo_no  =  a . peo_no ) 

and  b.pno  *  c.pno 

and  b.submitdate  ■  (select  submitdate  from  latest_submission 
where  pno  =  b.pno) 

and  c.fy  *  (select  max(fy)  from  congress) 
and  ((hasc_budget  <  pres_budget  and  hasc_budget  is  not  null) 
or 

(sasc_budget  <  pres_budget  and  sasc_budget  is  not  null) 
or 

(ascjt_budget  <  pres_budget  and  ascjt_budget  is  not  null) 
or 

(hac_budget  <  pres_budget  and  hac_budget  is  not  null) 
or 

(sac_budget  <  pres_budget  and  sac_budget  is  not  null) 
or 

(acjt_budget  <  pres_budget  and  acjt_budget  is  not  null)) 
order  by  short_peo,  short_pna,  ssnjse,  nomen; 
select  '  '  from  dual; 

spool  off 
set  space  1; 

REM  start  seton 


MCS220. SQL 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 


start  setoff 
set  space  0 
set  wrap  on 

spool  mcs220.prn 

select  rpad(rpad<short_peo,3)  ||  1  *  1  ||  rpad(shortjpna,7)  ||  1  1  || 
to_char(pres_budget, *999,999.0' ), 78), 
rpad(noaen,78), 

rpadC  •  ||  substr(ssn_pe,  1 ,6)  ||  1  -  •  || 

subst  ^appropriation,  1 ,6)  ||  '  Change  '  || 
to_char(hasc_budget  -pres_budget, '99,999.9' )  || 
to_char(sasc_budget  -pres_budget, '99,999.9')  || 
to_char(B8cjt_budget-pres_budget, '99,999.9' )  | | 
to_char(hac_budget  -pres_budget, '99,999.9' )  || 
to_char(sac_budget  -pres_budget, '99,999.9')  || 
to_char(acjt_budget  -pres_budget, '99, 999.9'), 78) 
from  peo  a,  program  b,  congress  c 
where  a.peo_no  =  b.peo_no 

and  a.submitdate  =  (select  max(submitdate)  from  peo 
where  peo_no  =  a.peo_no) 

and  b.pno  *  c .poo 

and  b.submitdate  =  (select  submitdate  from  latest_submission 
where  poo  =  b.pno) 

and  c.fy  »  (select  max(fy)  from  congress) 
and  ((hasc_budget  >  pres_budget  and  hasc_budget  is  not  null) 
or 

(sasc_budget  >  pres_budget  and  sasc_budget  is  not  null) 
or 

(ascjt_budget  >  pres_budget  and  ascjt_budget  is  not  null) 
or 

(hac_budget  >  pres_budget  and  hac_budget  is  not  null) 
or 

(sac_budget  >  pres_budget  and  sac_budget  is  not  null) 
or 

(acjt_budget  >  pres_budget  and  acjt_budget  is  not  null)) 
order  by  short_peo,  short_pna,  ssn__pe,  nomen,* 
select  '  '  from  dual; 

spool  off 
set  space  1; 

REM  start  seton 
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1  start  setoff 

2 

3  cot  peo_no 

4  cot  pno 

5  col  duaay 

6  col  dm 


8  drop  table  mcstemp; 

9  create  table  mcstemp  as 

10  select  a.peono,  b.pno,  short_peo,  short _pna,  ncmen,  ssn_pe,  appropriation, 

11  pres_budget  catcl,  hasc_budget  calc2,  sasc_budget  catc3, 

12  ascjt_budget  calc4,  hac_budget  calc5,  sac_budget  calc6, 

13  acjtbudget  calc7,  '0'  dumsy,  'O'  da,  '0'  unq 

14  from  peo  a,  program  b,  congress  c 

15  where  a.peo  no  •  b.peono 

16  and  a.sUxaitdate  *  (select  max(submitdate)  from  peo 

17  where  peo_no  *  a . peo_no ) 

18  and  b.pno  *  c.pno 

19  and  b.submitdate  -  (select  submitdate  from  latest_submission 

20  where  pno  =  b.pno) 

21  and  c.fy  *  (select  max(fy)  from  congress); 

22 

23  update  mcstemp  a  set  unq  ■  '1' 

24  where  (rowid,peo_no,ssn jpe.noaien) 

25  in  (select  rowid,peo_no,ssn_pe, nomen  from  mcstemp  a 

26  where  unq  ■  'O' 

27  and  rowid  !■  (select  min(rowid)  from  mcstemp  b 

28  where  a.ssn_pe»  b.ssn_pe 

29  and  a.peono  *  b.peono 

30  and  a.rxxaen  *  b. nomen)); 


32  set  space  1 

33  spool  mcsddl.sql; 

34  select  distinct  'start  mcs23x1'f  peono,  pno 

35  from  mcstemp; 

36  spool  off; 

37 

38  spool  mcsdcB.sql; 

39  select  distinct  'start  mcs23x2',  peo  no 

40  from  mcstemp; 

41  spool  off; 

42 

43  start  mcsddl 

44  start  mcsdd2 


46  col  peo_no 

47  col  pno 

48  col  dummy 

49  col  dn 

50  col  sp 

51  col  spn 

52  col  ssn 

53  col  nom 


noprint 

noprint 

noprint 

noprint 

noprint 

noprint 

noprint 

noprint 


54 

55  rem  break  on  da  skip  1; 

56  rem  break  on  spn  skip  1; 
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HCSZSO.SGL 


57 

56 

59 

60 
61 
62 

63 

64 

65 

66 

67 

68 

69 

70 

71 

72 

73 

74 

75 

76 

77 

78 

79 

80 
81 
82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 

99 
100 
101 
102 

103 

104 

105 

106 

107 

108 


sat  space  0 
sat  wrap  on 

spool  mcs230.pm 

select  a. short _peo  sp,  b.short_pna  spn,  d.ssn_pe  ssn,  d. noawn  non,  denary,  da, 
rpad(rpad(c.short_peo,3)  ||  '  -  '  ||  rpad(c.short_pna,7)  ||  '  1  || 
to_char(calc1 , '999,999.0* ), 78) , 
rpad(c.nomen,78), 

rpadC  '  ||  substr(c.ssn_pe,  1,6)  ||  '  -  •  || 
subetr(c. appropriation, 1,6)  |j  1  Change  1  || 

to_char(calc2-calc1,'99,999.9l)  ||  to_char(calc3-calc1,'99,999.9')  || 
to_char(calc4-calc1, '99,999.9')  ||  to_char(calc5-calc1, '99,999.9')  || 
to_char(calc6-calc1, >99,999.9' )  ||  to_char(cale7-calc1,‘99,999.9'),78) 
from  peo  a,  progran  b,  acstenp  c,  congress  d 
where  dumay  *  '0* 
and  a.peo_no  «  c.peo  no 
and  b.pno  *  c.pno 
and  d.ssn_pe  *  c.ssn_pe 
and  d.noawn  *  c. nomen 

union 

select  a.short_peo,  b.short_pna,  rpad('z',10,'z'),  rpad('z',3fi,  'z'),  dummy,  ckn, 
rpadC  ',17)  || 

*23X3323  33X333X3  33333353  33533333  35333353  SSS3333S  33333333 • f 

rpadC  TOTAL  PROGRAM1  ||  to_char(calc1, *999, 999.0')  || 
to_char(calc2-calc1,'99,999.9')  ||  to_char(calc3-calc1, *99,999.9' )  || 
to_char<calc4-calc1, '99,999.9')  jj  to_char(calc5-calc1, *99,999.9' )  jj 
to_char(calc6-calc1 , '99,999.9' )  | |  to_char(calc7-calc1, *99,999.9' ), 78), 

•  < 

from  peo  a,  program  b,  me s temp  c 
where  duimy  ■  *1' 

and  a.peono  *  c . peo  no 
and  b.pno  *  c.pno 

union 

select  a.short_peo,  'zzz',  rpad{ 'z' ,10, 'z' ),  rpad('z',38,'z‘),  dummy,  dm, 
rpadC  ',17)  || 


rpadC  TOTAL  PEO  •  ||  to_char(calc1, '999,999.0' )  || 
to_char(calc2-calc1, '99,999.9')  ||  to_char(calc3-calc1, '99,999.9' )  || 
to_char(calc4-calc1, '99,999.9')  ||  to_char<calc5-calc1, '99,999.9' )  || 
to_char(calc6-calc1, '99,999.9' )  | |  to_char<calc7-calc1, '99,999.9' ), 78), 

I  I 

from  peo  a,  mestemp  c 
where  duney  =  '2' 
and  a.peo_no  =  c.peo_no 
order  by  1,2, 3, 4, 5; 

select  '  '  from  dual; 

spool  off 
set  space  1; 
clear  breaks; 

REM  start  seton 


NCS23X1.SQL 
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1  Insert  Into  acsteap 

2  select  ■tl'.'ttV 


3 

siaKcatcl), 

4 

sus<calc2). 

5 

sus(calc3). 

6 

suKcalc4), 

7 

sus<calc5). 

8 

sua<calc6). 

9 

sua(calc7). 

10 

'1'  dmwy,  '0'  da 

11 

froa  acstaap 

12 

where  peo  rvo  *  *61 

13 

and  pno  *'t2‘ 

14 

and  duney  a  'O'; 

i 


I  I  I  I  1 
•  It 


1  unq 
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> 

MC  $23X2.  SOI 


1 

insert 

into  acsteap 

2 

select 

*61 * , *zzz  ',*  *,*  *.■ 

•  ••II 

«  •  t 

3 

su»(calc1). 

4 

sua<calc2). 

5 

sua(calc3). 

6 

sua(calc4). 

7 

sua(calc5). 

8 

sua(calc6), 

9 

8ua(calc7), 

10 

*2*  duaay,  *1*  da  ,*1 

•  unq 

11 

froa  acsteap 

12 

where  peo_no  »  *41' 

13 

and  duaay  *  *0* 

14 

and  unq  ■  'O'; 

MCSO10.SOL 
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Pass  1 


1  start  setoff 

2  set  space  0 

3  set  wrap  on 

6  spool  acsOIO.prn 

5  select  "  frea  dual; 

6  select  "  from  dual; 

7  select  11  froa  dual; 

8  select  al  froa  dual; 

9 

10  select  'MCS010*  froa  dual; 

11  select  rpadC Congressional  Status  Menu  Class  ['  || 

12  OECOOE(NAX(CLASS),  'C\  'C',  'S’, 'S',  'U')  ||  ']',78>, 

13  rpedCFY'  ||  substr(to_char(aax(fy)),3,2)  ||  '  Line  Iteas  as  of  '  || 

14  decode(max(greatest(AUDATE , APOATE) ) ,  MULL,  'N/A*. 

15  to_char(aax( great est (AUDATE , APOATE ) ) , ' Hon  YY')),78) 

16  froa  congress 

17  where  decode(class, 'U' ,1, 'C' ,2, 'S' ,3,0)  * 

18  (select  maxfdecodefd.class.'U'.I.'C'^.'S'.S.O))  froa  congress  d) 

19  and 

20  fy  *  (select  aax(d.fy)  froa  congress  d); 

21  select  'Comnittee  Apprvd  Request1  froa  dual; 

22  select  rpad(rpad(*  ’,19)  ||  *0'  ||  to_char(sum(calc1),*999999999,),78), 

23  rpad(rpad('HASC',10)  ||  to_char(sun(calc2), 999999999)  || 

24  to_char(sum(calc1), '999999999'), 78). 

25  rpad(rpad('SASC',10)  ||  to_char(sun(calc3), 999999999)  || 

26  to_eher(sun(calc1), '999999999'), 78), 

27  rpad(rpad( 'Conf ' , 10)  ||  to_char(sua(ca l c4), 999999999)  || 

28  to_char(sum(calc1), *999999999'), 78), 

29  rpad( rpad( '  ',19)  ||  'O'  ||  to_char(sun(calc1), '999999999' ), 78), 

30  rpad(rpad('HAC',10)  ||  to_char(sum(calc5), 999999999)  || 

31  to_char(sun(calc1), '999999999'), 78), 

32  rpad(rpad( 'SAC' ,10)  ||  to_char(sum(calc6), 999999999)  || 

33  to_char(sun(calc1), '999999999'), 78), 

34  rpad( rpadC Conf ',10)  ||  to_char(sum(calc7), 999999999)  || 

35  to_char(sun(calc1), '999999999'), 78), 

36  rpad( rpad( 1  ',19)  ||  'O'  ||  to_char(sun(calc1>, '999999999'), 78) 

37  from  mcsteap 

38  where  dummy  *  '2'; 

39 

40  select  "  from  dual; 

41  select  "  from  dual; 

42  select  "  from  dual; 

43  select  "  from  dual; 

44  select  "  from  dual; 

45  select  "  from  dual; 

46  select  "  from  dual; 

47  select  "  from  dual; 

48  select  "  from  dual; 

49  select  "  from  dual; 

50  select  "  from  dual; 

51  select  "  from  dual; 

52  select  "  from  dual; 

53  select  "  from  dual; 

54  select  "  from  dual; 

55  select  "  from  dual; 

56  select  "  from  dual; 
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57  select  11  froa  dual; 

56  select  "  frca  dual; 

59 

60  select  'MCS210'  frca  dual; 

61  select  rpadCCtngressional  Decrements  to  Requests  Class  t*  || 

62  DECODE(NA«(CLASS) ,  'C\  'C.  ‘S', 'S',  'U')  ||  ']',78), 

63  rpadCFY*  ||  substr(to_char(aax(fy)),3,2)  ||  '  Line  {teas  as  of  1  || 

64  decode(aax(greatest(AUDATE,APOATE)),  NULL,  'N/A', 

65  to_char(aax(greatest(AUDATE,APOATE)), 'Non  YY')),78) 

66  froa  congress 

67  uhere  decode<class, 'U* ,1, •C* ,2, *S* ,3,0)  * 

68  (select  aax(decode(d.class,'U',1,'C',2,'S',3,0))  froa  congress  d) 

69  and  fy  *  (select  aax(fy)  froa  congress) 

70  and  ( (hasc_budget  <  pres_budget  and  hasc_budget  is  not  null) 

71  or 

72  (sasc_budget  <  presbudget  and  sasc_budget  is  not  null) 

73  or 

74  (ascjt_budget  <  pres_budget  and  ascjt_budget  is  not  null) 

75  or 

76  (hac_budget  <  presbudget  and  hscbudget  is  not  null) 

77  or 

78  (sac_budget  <  presbudget  and  sacbudget  is  not  null) 

79  or 

80  (acj tbudget  <  pres  budget  and  acjt_budget  is  not  null)); 

81  select  1  Authorization  Changes  Appropriation  Changes'  froa  dual; 

82  select  '  . . . 1  from  dual; 

83  select  'PEO  -  Prograa  Request  HASC  SASC  Conf  MAC  SAC  Conf1  froa  dual; 

84  select  '  . * . . . '  froa  dual; 

85  select  "  froa  dual; 

86  select  "  froa  dual; 

87  select  "  froa  dual; 

88 

89  select  'MCS220'  froa  dual; 

90  select  rpad( 'Congressional  Increments  to  Requests  Class  ['  || 

91  DEC00E(NAX(CLASS),  'C',  'C',  'S', 'S',  'U')  ||  ']',78), 

92  rpadCFY'  ||  substr(to_char(max(fy)),3,2)  ||  '  Line  Items  as  of  '  || 


93  decode(max(greatest(AUDATE,APOATE)>,  NULL,  'N/A', 

94  to_char(max(greatest(AUDATE,APDATE)), 'Mon  YY')),78) 

95  froa  congress 

96  where  decode(class,'U',1,'C',2,'S',3,0)  = 

97  (select  max(decode(d.class,'U',1,'C',2,'S',3,0))  from  congress  d) 

98  and  fy  *  (select  max(fy)  from  congress) 

99  and  ((hasc_budget  >  presbudget  and  hasc_budget  is  not  null) 

100  or 

101  (sascjbudget  >  pres_budget  and  sasc_budget  is  not  null) 

102  or 

103  (ascjt_budget  >  pres_budget  and  ascjt_budget  is  not  null) 

104  or 

105  (hsc  budget  >  pres_budget  and  hac_budget  is  not  null) 

106  or 

107  (sac_budget  >  pres_budget  and  sac_budget  is  not  null) 

108  or 

109  (acjt_budget  >  pres_budget  and  acjt_budget  is  not  null)); 

110  select  '  Authorization  Changes  Appropriation  Changes'  from  dual; 

111  select  1  — . . . . 1  from  dual; 


112  select  'PEO  -  Prograa  Request  HASC  SASC  Conf  HAC  SAC  Conf'  from  dual; 
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113  select  •  . *  froa  dual; 


1U  select  11  froa  dual; 

115  select  "  froa  dual; 

116 

117  select  'MCS230*  froa  dual; 

118  select  rpadC Congressional  Status  Susaary  Class  C  || 

119  DECQOE(MAX(CLASS),  'C',  •€',  'S', ‘S',  *U')  ||  •V.TS), 

120  rpadOFY*  ||  substr(to_char(aax(fy)),3,2)  ||  1  Line  Items  as  of  1  || 

121  decode(aax(greatest(AUDATE .APOATE ) ) .  HULL.  *M/A*, 

122  to_ehar(aax(greatest(AU>ATE, APOATE)), 'Hon  TT')),78) 

123  froa  congress 

124  where  decode(class, 'U',1, 'C' ,2, 'S' ,3,0)  * 

125  (select  aaxfdecodefd.class.'U'.I.'C'.Z, 'S', 3,0))  froa  congress  d) 

126  and  fy  a  (select  aax(fy)  froa  congress); 

127  select  1  Authorization  Changes  Appropriation  Changes1  froa  dual; 

128  select  1  . . . . . 1  froa  dual 

129  select  'PEO  -  Program  Request  HASC  SASC  Conf  HAC  SAC  Conf1  from  dual 

130  select  1  . . . . .  — . 1  from  dual 

131 

132 

133  spool  off 

134  set  space  1; 

135  clear  breaks; 

136  REM  start  seton 
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AAMS  PHASE  III  PROGRAM  SPECIFICATIONS 
Report  Generation 
9/26/90 


RDTE  Execution 


Report  File  Names:  (all  end  with  extension  PRN) 

MFE010 

MFE210 

MFE211 

MFE310 

MFE320 


Purpose:  RDTE  financial  reports  will  list  PEO,  program,  program  element  and  title,  project 

identification,  approved  program,  obligations,  disbursements,  percent  unobligated  and 
percent  disbursed  unless  otherwise  noted. 


MFE010 

Text  report  that  contains  headers  for  all  MFE010,  MFE210,  MFE21 1  RDTE  execution 
reports. 

#1)  Headers  for  MFE010,  MFE210,  MFE211  contain  the  latest  EXEC  MONTH  from  the 
RDTE.EXEC  table. 

#2)  Headers  for  MFE010,  MFE210,  MFE211  contain  the  highest  classification  from  all  the  records 
selected  from  their  related  report  files. 

The  Fiscal  Year  is  determined  by  the  FY  field  in  the  RDTE  EXEC  table. 

#3a)  Header  for  MFE010  contains  the  latest  fiscal  year. 

#3b)  Header  for  MFE010  contains  the  previous  fiscal  year. 

#4)  Header  for  MFE210,  contains  the  latest  fiscal  year. 

#5)  Header  for  MFE211,  contains  the  previous  fiscal  year. 

FORMAT:  MFE010 

(U  =  Left  Justified,  RJ  =  Right  Justified) 

Except  as  noted  below  the  text  for  this  report  file  is  fixed  as  shown  on  attached  sample. 
(See  sample  for  formatting  information). 

Calculation  (#1)  will  appear  on  lines  7,12  and  22. 

Line  7 

LJ  Col  36-41  =  #1  (after  words  ’as  of  ’  using  [Mon  YY]  format.) 

Line  12  and  22 

LJ  Col  23-28  =  #1  (after  words  ’as  of  ’  using  [Mon  YY]  format.) 

Calculation  (#2)  will  appear  on  lines  6,11  and  21. 

U  Col  49-49  =  #2  (after  text  ’Class:  [’) 

Calculations  (#3a-b)  will  appear  on  line  7. 

LJ  Col  3-  4  =  #3a  (after  text  ’FY’  using  [YY]  format.) 

LJ  Col  12-13  =  #3b  (after  text  ’FY’  using  [YY]  format.) 

Calculations  (#4)  will  appear  on  line  11. 

LJ  Col  3-4  =  #4  (after  text  ’FY’  using  [YY]  format.) 

Calculations  (#5)  will  appear  on  line  21. 

LJ  Col  3-4  =  #5  (after  text  ’FY’  using  [YY]  format.) 


Latest  fiscal  year  program  element  and  project  summary  sorted  by  PEO  and  program 
with  totals  after  each  program  and  each  PEO. 

The  report  will  be  sorted  by  SHORT  PEO,  SHORT  PNA,  PENUMBER  and 
PROJID. 

Find  each  PROJECTS  record  within  a  program  for  each  PEO  with  a  unique  key  (i.e. 
PNO,  PENUMBER,  PROJID).  Using  the  PENUMBER  and  PROJID  find  the 
RDTEEXEC  record  table  with  a  matching  PENUMBER  and  PROJID  for  the  latest 
fiscal  year  (determined  by  the  latest  FY)  and  the  latest  EXEC  MONTH.  The  unique 
key  on  the  RDTE_EXEC  table  is  PENUMBER,  PROJID,  FV,  and  EXEC  MONTH. 

Also  use  the  PROJECTS  table  record  to  find  the  PENAME  from  the  PE  table  by  using 
the  PNO,  PENUMBER  and  a  value  of  "1"  for  RIC  to  find  a  unique  record. 

If  a  PROJECTS  Record  exists  but  there  is  no  related  RDTE  EXEC  table  information 
then  print  blanks  for  the  columns  affected.  However,  if  no  related  PE  record  exists 
then  skip  the  PROJECTS  record.  Additionally,  if  there  is  a  related  RDTEEXEC 
record  but  for  a  different  fiscal  year  then  skip  the  PROJECTS  record. 

Additionally,  after  eachprogram  break  and  after  each  PEO  break  print  a  total  line 
summing  RDTE  EXEC  data.  However,  the  PEO  total  line  should  exclude  any 
RDTE_EXEC  data  that  has  been  summed  within  each  PNO  that  was  the  same 
information  but  belonged  to  more  than  one  program  within  that  PEO. 

Calculation  Names  Table 

#1)  SHORT  PEO  PEO 

#2)  SHORT  PNA  PROGRAM 

#3)  PENUMBER  PROJECTS 

#4)  PROJID 

#5)  PENAME  PE 

#6)  CURR  APRVD  PROGRAM  RDTE  EXEC 
#7)  OBLIGATED  FUNDS 
#8)  DISBURSED  "FUNDS 

#9)  UNOBLIGATED  FUNDS/CURR  APRVD  PROGRAM  *  100 
#10)  DISBURSED JTJNDS/OBLIGATED_FUNDS  *  100 

#111  Fixed  text  ’Program  Total:’ 

#12)  Total  of  all  #6  for  each  program. 

#13)  Total  of  all  #7  for  each  program. 

#14)  Total  of  all  #8  for  each  program. 

#15)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100 
for  each  program. 

#16)  Sum  of  DISBURSED_FUNDS/Sum  of  OBLIGATED  FUNDS  *  100  for  each 
program. 


#17)  Fixed  text  ’PEO  Total:’ 

#18)  Total  of  all  #6  for  each  PEO. 

#19)  Total  of  all  #7  for  each  PEO. 

#20)  Total  of  all  #8  for  each  PEO. 

#21)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100 
for  each  PEO. 

#22)  Sum  of  DISBURSED  FUNDS/Sum  of  OBLIGATED  FUNDS  *  100  for  each 
PEO. 


FORMAT:  MFE210 

(LJ  =  Left  Justified,  RJ  =  Right  Justifled) 


The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #1-#  10  will  appear  vertically  starting  on  line  1. 

U  Col  1-3  =  #1 

U  Col  5-11  =  #2 

U  Col  13-22  =  #3 

U  Col  24-29  =  #4 

U  Col  31-42  =  #5 

RJ  Col  44-50  =  #6  (Using  [9,999.9]  format) 

RJ  Col  52-58  =  #7  (Using  [9.999.9]  format) 

RJ  Col  60-66  =  #8  (Using  [9,999.9]  format) 

RJ  Col  68-72  =  #9  (Using  [999.9]  format) 

RJ  Col  74-78  =  #10  (Using  [999.9]  format) 


Calculations  #11-#  16  will  appear  vertically  after  each  program  break. 

LJ  Col  24-37  =  #11  (Fixed  text  ’Program  Total:’) 

RJ  Col  44-50  =  #12  (Using  [999,999]  format) 

RJ  Col  52-58  =  #13  (Using  [999,999]  format) 

RJ  Col  60-66  =  #  14  (Using  [999,999]  format) 

RJ  Col  68-72  =  #  15  (Using  [999.9]  format) 

RJ  Col  74-78  =  #16  (Using  [999.9]  format) 

Calculations  #17-#22  will  appear  vertically  after  each  PEO  break. 

U  Col  24-33  =  #17  (Fixed  text  ’PEO  Total:’) 

RJ  Col  44-50  =  #18  (Using  [999,999]  format) 

RJ  Col  52-58  =  #  19  (Using  [999,999]  format) 

RJ  Col  60-66  =  #20  (Using  [999,999]  format) 

RJ  Col  68-72  =  #21  (Using  [999.9]  format) 

RJ  Col  74-78  =  #22  (Using  [999.9]  format) 


Previous  fiscal  year  program  element  and  project  summary  sorted  by  PEO  and 
program  with  totals  after  each  program  and  each  PEO. 

The  report  will  be  sorted  by  SHORTPEO,  SHORTPNA,  PENUMBER  and 
PROJiD. 


Find  each  PROJECTS  record  within  a  program  for  each  PEO  with  a  unique  key  (i.e. 
PNO,  PENUMBER,  PROJID).  Using  the  PENUMBER  and  PROJID  find  the 
RDTEEXEC  record  table  with  a  matching  PENUMBER  and  PROJID  for  the 
previous  fiscal  year  (determined  by  the  latest  FY  minus  one)  and  the  latest 
EXEC  MONTH.  The  unique  key  on  the  RDTE  EXEC  table  is  PENUMBER, 
PROJID,  FY,  and  EXEC  MONTH. 

Also  use  the  PROJECTS  table  record  to  find  the  PENAME  from  the  PE  table  by  using 
the  PNO,  PENUMBER  and  a  value  of  "1"  for  RIC  to  find  a  unique  record. 

If  a  PROJECTS  Record  exists  but  there  is  no  related  RDTE  EXEC  table  information 
then  print  blanks  for  the  columns  affected.  However,  if  no  related  PE  record  exists 
then  skip  the  PROJECTS  record.  Additionally,  if  there  is  a  related  RDTE_EXEC 
record  but  for  a  different  fiscal  year  then  skip  the  PROJECTS  record. 

Additionally,  after  eachprogram  break  and  after  each  PEO  break  print  a  total  line 
summing  RDTE  EXEC  data.  However,  the  PEO  total  line  should  exclude  any 
RDTE  EXEC  data  that  has  been  summed  within  each  PNO  that  was  the  same 
information  but  belonged  to  more  than  one  program  within  that  PEO. 

Calculation  Names  Table 


#1)  SHORT  PEO 
#2)  SHORT  PNA 
#3)  PENUMBER 
#4)  PROJID 
#5)  PENAME 


PEO 

PROGRAM 

PROJECTS 

PE 


#6)  CURR  APRVD  PROGRAM..  RDTE  EXEC 
#7)  OBLIGATED  FUNDS 
#8)  DISBURSED  "FUNDS 

#9)  UNOBLIGATED  FUNDS/CURR  APRVD  PROGRAM  *  100 
#10)  DISBURSED_FtJNDS/OBLIGATED_FUNDS  *  100 


#11)  Fixed  text  ’Program  Total:’ 

#12)  Total  of  all  #6  for  each  program. 
#13)  Total  of  all  #7  for  each  program. 
#14;  Total  of  all  #8  for  each  program. 


#15)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100 
for  each  program. 


#16)  Sum  of  DISBURSED_FUNDS/Sum  of  OBLIGATEDFUNDS  *  100  for  each 
program. 


#17)  Fixed  text  PEO  Total:’ 

#18)  Total  of  all  #6  for  each  PEO. 

#19)  Total  of  all  #7  for  each  PEO. 

#20)  Total  of  all  #8  for  each  PEO. 

#21)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR_APR VD  PROGRAM  *  100 
for  each  PEO. 

#22)  Sum  of  DISBURSED  FUNDS/Sum  of  OBLIGATED  FUNDS  *  100  for  each 
PEO. 


FORMAT:  MFE211 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 


The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #  1-#  10  will  appear  vertically  starting  on  line  1. 

U  Col  1-3  =  #1 
U  Col  5-11  =  #2 
U  Col  13-22  =  #3 
U  Col  24-29  =  #4 
U  Col  31-42  =  #5 

RJ  Col  44-50  =  #6  (Using  [9,999.9]  format) 

RJ  Col  52-58  =  #7  (Using  [9,999.9]  format) 

RJ  Col  60-66  =  #8  (Using  [9,999.9]  format) 

RJ  Col  68-72  =  #9  (Using  [999.9]  format) 

RJ  Col  74-78  =  #10  (Using  [999.9]  format) 


Calculations  #ll-#i6  will  appear  vertically  after  each  program  break. 

LJ  Col  24-37  =  #11  (Fixed  text  ’Program  Total:’) 

RJ  Col  44-50  =  #  12  (Using  [999,999]  format) 

RJ  Col  52-58  =  #13  (Using  [999,999]  format) 

RJ  Col  60-66  =  #  14  (Using  [999,999]  format) 

RJ  Col  68-72  =  #15  (Using  [999.9]  format) 

RJ  Col  74-78  =  #16  (Using  [999.9]  format) 

Calculations  #17-#22  will  appear  vertically  after  each  PEO  break. 

U  Col  24-33  =  #17  (Fixed  text  ’PEO  Total:’) 

RJ  Col  44-50  =  #18  (Using  [999,999]  format) 

RJ  Col  52-58  =  #19  (Using  [999,999]  format) 

RJ  Col  60-66  =  #20  (Using  [999,999]  format) 

RJ  Col  68-72  =  #21  (Using  [999.9]  format) 

RJ  Col  74-78  =  #22  (Using  [999.9]  format) 


Text  report  that  contains  headers  for  MFE310,  MFE311,  MFE312,  MFE313,  MFE314 
and  graph  calculations  for  these  screens. 

#1)  Each  header  contains  the  latest  EXEC  MONTH  from  the  RDTE_EXEC  table. 

#2)  Each  header  contains  the  highest  classification  from  all  the  records  selected  to  obtain  any 
RDTE_EXEC  data  for  graph  calculations  done  in  this  report. 

#3)  Each  header  contains  the  latest  fiscal  year  determined  by  the  latest  FY  field  in  the  RDTE_EXEC 
table. 

The  remaining  calculations  pertain  to  graphs. 

A  list  of  PEO’s  is  printed  horizontally  and  alphabetically  upto  a  maximum  of  12.  If 
there  are  less  than  12  PEO’s  then  Blank  fill  the  columns  related  to  calculation  #4  and 
zero  out  the  columns  related  to  calculations  (#5a-l  through  #14a-l) 

#4a-l)  A  list  of  ’SHORT_PEO’s  from  the  PEO  table  sorted  by  SHORT_PEO. 

To  obtain  sums  and  percentages  by  PEO  use  the  same  methodology  as  used  by 
MFE210  to  obtain  PEO  total  information. 

#5a-l)  A  sum  of  CURR  APRVD  PROGRAM  from  RDTE_EXEC  for  each  PEO. 

#6a-l)  A  sum  of  OBLIGATED  FUNDS  from  RDTE_EXEC  for  each  PEO. 

#7a-l)  A  sum  of  DISBURSED  JUNDS  from  RDTE_EXEC  for  each  PEO. 

#8a-l)  A  sum  of  UNOBLIGATED_FUNDS  from  RDTEEXEC  for  each  PEO. 

#9a-l)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR_APRVD_PROGRAM  *  100  from 
RDTE  EXEC  for  each  PEO. 

#10a-l)  Sum  of  DISBURSED_FUNDS/Sum  of  OBLIGATED_FUND  *  100  from  RDTE  EXEC  for 
each  PEO. 

#lla-l)  Sum  of  OBLIGATED  FUNDS/Sum  of  CURR_APR VD  PROGRAM  *  100  from 
RDTE_EXEC  for  each  PEO. 

#12a-lJSame  as  #9a-l. 

#13a-l)  Same  as  #10a-l. 

#14a-l)  ((Sum  of  OBLIGATED  FUNDS  -  Sum  of  DISBURSED_FUNDS)/Sum  of 
OBLIGATED_FUNDS)  *  100  from  RDTE_EXEC  for  each  PEO. 


FORMAT:  MFE310 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 


Except  as  noted  below  the  text  for  this  report  file  is  fixed  as  shown  on  attached  sample. 
(See  sample  for  formatting  information). 

Calculation  (#1)  will  appear  on  lines  7,27,32,37  and  42. 

LJ  Col  27-32  =  #1  (after  words  ’as  of  ’  using  [Mon  YY]  format.) 

Calculation  (#2)  will  appear  on  lines  6,26,31,36  and  41. 

LJ  Col  49-49  =  #2  (after  text  ’Class:  [’) 

Calculations  (#3)  will  appear  on  line  3,7,27,32,37  and  42. 

LJ  Col  3-4  =  #3  (after  text  ’FY’  using  [YY]  format.) 

Calculations  (#4a-l)  will  appear  on  line  10. 

U  Col  8-10  =  #4a 
U  Col  13-15  =  #4b 
U  Col  18-20  =  #4c 
U  Col  24-26  =  #4d 
U  Col  29-31  =B  #4e 
U  Col  35-37  «  #4f 
LJ  Col  40-42  =  #4g 
U  Col  45-47  =  #4h 
U  Col  50-52  =  #4i 
U  Col  56-58  =  #4j 
U  Col  61-63  =  #4k 
U  Col  66-68  =  #41 

Calculations  (#5a-l)  will  appear  on  line  11 
Calculations  f  #6a-l)  will  appear  on  line  12 
Calculations  (#7a-l)  will  appear  on  line  13 
Calculations  (#8a-l)  will  appear  on  line  14 

RJ  Col  7-10  =  #5-8a  (Using  [9999]  format.) 

RJ  Col  12-15  =  #5-8b  (Using  [9999]  format.) 

RJ  Col  17-20  =  #5-8c  (Using  [9999]  format.) 

RJ  Col  23-26  =  #5-8d  (Using  [9999]  format.) 

RJ  Col  28-31  =  #5-8e  (Using  [9999]  format.) 

RJ  Col  34-37  =  #5-8f  (Using  [9999]  format.) 

RJ  Col  39-42  =  #5-8g  (Using  [9999]  format.) 

RJ  Col  44-47  =  #5-8h  (Using  [9999]  format.) 

RJ  Col  49-52  =  #5-8i  (Using  [9999]  format.) 

RJ  Col  55-58  =  #5-8j  (Using  [9999]  format.) 

RJ  Col  60-63  =  #5-8k  (Using  [9999]  format.) 

RJ  Col  65-68  =  #5-81  (Using  [9999]  format.) 


Calculations  (#9a-l)  will  appear  on  line  15 
Calculations  (#10a-n  will  appear  on  line  16 
Calculations  f#l  la-11  will  appear  on  line  17 
Calculations  (#12a-n  will  appear  on  line  18 
Calculations  f  #13a-l)  will  appear  on  line  19 
Calculations  (#14a-l)  will  appear  on  line  20 

RJ  Col  8-11  =  #9-14a  (Using  [999%]  format.) 

RJ  Col  13-15  =  #9-14b  (Using  [999%]  format.) 
RJ  Col  18-21  =  #9-  14c  (Using  [999%]  format.) 

RJ  Col  24-27  =  #9-14d  (Using  [999%]  format.) 
RJ  Col  29-32  =  #9-14e  (Using  [999%]  format) 
RJ  Col  35-38  =  #9-14f  (Using  [999%]  format.) 

RJ  Col  40-43  =  #9-14g  (Using  [999%]  format.) 

RJ  Col  45-48  =  #9-14h  (Using  [999%]  format) 
RJ  Col  50-53  =  #9-14i  (Using  [999%]  format.) 

RJ  Col  56-59  =  #9-14j  (Using  [999%]  format.) 

RJ  Col  61-64  =  #9- 14k  (Using  [999%]  format.) 
RJ  Col  66-69  =  #9-141  (Using  [999%]  format.) 


Text  report  that  contains  headers  for  MFE320,  MFE321,  MFE322,  MFE323,  MFE324 
and  graph  calculations  for  these  screens. 

#1)  Each  header  contains  the  latest  EXEC_MONTH  from  the  RDTEEXEC  table. 

#2)  Each  header  contains  the  highest  classification  from  all  the  records  selected  to  obtain  any 
RDTE_EXEC  data  for  graph  calculations  done  in  this  report. 

#3)  Each  header  contains  the  previous  fiscal  year  (determined  by  the  latest  FY  field  minus  one)  in  the 
RDTE  EXEC  table. 

The  remaining  calculations  pertain  to  graphs. 

A  list  of  PEO’s  is  printed  horizontally  and  alphabetically  upto  a  maximum  of  12.  If 
there  are  less  than  12  PEO’s  then  Blank  fill  the  columns  related  to  calculation  #4  and 
zero  out  the  columns  related  to  calculations  (#5a-l  through  #14a-l) 

#4a-l)  A  list  of  ’SHORTJPEO’s  from  the  PEO  table  sorted  by  SHORT_PEO. 

To  obtain  sums  and  percentages  by  PEO  use  the  same  methodology  as  used  by 
MFE211  to  obtain  PEO  total  information. 

#5a-l)  A  sum  of  CURR_APRVD  PROGRAM  from  RDTE  EXEC  for  each  PEO. 

#6a-l)  A  sum  of  OBLIGATED  FUNDS  from  RDTE_EXEC  for  each  PEO. 

#7a-l)  A  sum  of  DISBURSED  FUNDS  from  RDTE_EXEC  for  each  PEO. 

#8a-l)  A  sum  of  UNOBLIGATED_FUNDS  from  RDTE_EXEC  for  each  PEO. 

#9a-l)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROG  RAM  *  100  from 
RDTE  EXEC  for  each  PEO. 

#10a-lj' Sum  of  DISBURSED_FUNDS/Sum  of  OBLIGATED_FUND  *  100  from  RDTE  EXEC  for 
each  PEO. 

#1  la-1)  Sum  of  OBLIGATED_FUNDS/Sum  of  CURR_APRVD  PROGRAM  *  100  from 
RDTE  EXEC  for  each  PEO. 

#12a-l)Tsame  as  #9a-l. 

#13a-l)  Same  as  #10a-l. 

#14a-l)  ((Sum  of  OBLIGATED_FUNDS  -  Sum  of  DISBURSED  FUNDS)/Sum  of 
OBLIGATED_FUNDS)  *  100  from  RDTE_EXEC  for  each  PEO? 


FORMAT:  MFE320 

(LJ  =  Left  Justified,  RJ  =  Right  Justifled) 


Except  as  noted  below  the  text  for  this  report  file  is  fixed  as  shown  on  attached  sample. 
(See  sample  for  formatting  information). 

Calculation  (#1)  will  appear  on  lines  7,27,32,37  and  42. 

LJ  Col  27-32  =  #1  (after  words  ’as  of  ’  using  [Mon  YY]  format.) 

Calculation  (#2)  will  appear  on  lines  6,26,31,36  and  41. 

U  Col  49-49  =  #2  (after  text  ’Class:  [*) 

Calculations  (#3)  will  appear  on  line  3,7,27,32,37  and  42. 

LJ  Col  3-4  =  #3  (after  text  TY*  using  [YY]  format.) 

Calculations  (#4a-l)  will  appear  on  line  10. 

U  Col  8-10  =  #4a 
U  Col  13-15  =  #4b 
U  Col  18-20  =  #4c 
U  Col  24-26  =  #4d 
U  Col  29-31  =  #4e 
U  Col  35-37  =  #4f 
U  Col  40-42  =  #4g 
U  Col  45-47  =  #4h 
U  Col  50-52  =  #4i 
U  Col  56-58  =  #4j 
U  Col  61-63  =  #4k 
U  Col  66-68  =  #41 

Calculations  f#5a-l)  will  appear  on  line  11 
Calculations  (#6a-n  will  appear  on  line  12 
Calculations  (#7a-n  will  appear  on  line  13 
Calculations  (#8a-l)  will  appear  on  line  14 

RJ  Col  7-10  =  #5 -8a  (Using  [9999]  format.) 

RJ  Col  12-15  =  #5-8b  (Using  [9999]  format.) 

RJ  Col  17-20  =  #5-8c  (Using  [9999]  format.) 

RJ  Col  23-26  =  #5-8d  (Using  [9999]  format.) 

RJ  Col  28-31  =  #5-8e  (Using  [9999]  format.) 

RJ  Col  34-37  =  #5-8f  (Using  [9999]  format.) 

RJ  Col  39-42  =  #5-8g  (Using  [9999]  format.) 

RJ  Col  44-47  =  #5-8h  (Using  [9999]  format) 

RJ  Col  49-52  =  #5-8i  (Using  [9999]  format.) 

RJ  Col  55-58  =  #5-8j  (Using  [9999]  format.) 

RJ  Col  60-63  =  #5-8k  (Using  [9999]  format.) 

RJ  Col  65-68  =  #5-81  (Using  [9999]  format.) 


Calculations  f#9a-l)  will  appear  on  line  15 
Cumulations  f  #10a-l)  will  appear  on  line  16 
Calculations  f#l  la-11  will  appear  on  line  17 
Calculations  (#12a-l)  will  appear  on  line  18 
Calculations  f#13a-l)  will  appear  on  line  19 
Calculations  (#14a-l)  will  appear  on  line  20 

RJ  Col  8-11  =  #9- 14a  (Using  [999%]  format.) 

RJ  Col  13-16  =  #9- 14b  (Using  [999%]  format.) 
RJ  Col  18-21  =  #9-14c  (Using  [999%]  format.) 

RJ  Col  24-27  =  #9-14d  (Using  [999%]  format.) 
RJ  Col  29-32  =  #9-14e  (Using  [999%]  format.) 

RJ  Col  35-38  =  #9-14f  (Using  [999%]  format.) 

RJ  Col  40-43  =  #9-14g  (Using  [999%]  format.) 

RJ  Col  45-48  =  #9-14h  (Using  [999%]  format.) 
RJ  Col  50-53  =  #9-14i  (Using  [999%]  format.) 

RJ  Col  56-59  =  #9-14j  (Using  [999%]  format.) 

RJ  Col  61-64  =  #9-14k  (Using  [999%]  format.) 
RJ  Col  66-69  =  #9-141  (Using  [999%]  format.) 
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NFE010 

ROTE  Financial  Execution  Main  Menu  Class  CU] 

FY89  and  FY90  ROTE  Execution  as  of  Jul  90 


NFE210 

FY90  ROTE  Financial  Execution  by  Class  [U] 

Program  and  PEO  as  of  Jul  90 

Program  Proj  Prgm  Element  Apprvd 

PEO  Program  Element  ID  Title  Program 


HFE211 

FY89  ROTE  Financial  Execution  by  Class  CU] 

Program  and  PEO  as  of  Jul  90 

Program  Proj  Prgm  Element  Apprvd 

PEO  Program  Element  ID  Title  Program 


Obliga-  Disbur-  X 
tions  sed  llnobl 


Obliga-  Disbur-  X 
tions  sed  llnobl 


X 

Liqd 


X 

Liqd 


I 

MFE210.PRN  Thursday,  October  11,  1990  11:19  am  Page  1 


1  AD  PATRIOT  23801A  0036  PATRIOT  PROD  37.3  17.3  2.7  53.6  15.6 

2  AD  PATRIOT  64307A  D212  RSI  (SUNK) 

3  AD  PATRIOT  64307A  0213  RSI  (SUNK) 

4  AD  PATRIOT  64307A  0291  RSI  (SUNK) 


5 

6 

Program  Total: 

37 

17 

3 

53.6 

15.6 

7 

PEO  Total: 

37 

17 

3 

53.6 

15.6 

8 

9  AV  APACHE  642170000  0275  SYNTHETIC  Ft 
10  AV  APACHE  648100000  DB54  ARMY  HELICOP 


11 

Program  Total: 

12 

13 

AV  CHINOOK  64213 

DC37  ENGINEERING 

14 

AV  CHINOOK  64213A 

0C37  ENGINEERING 

15 

Program  Total: 

16 

17 

PEO  Total: 

18 

19 

C&C  ADOS  0603713A 

0370  ADOS 

20 

C&C  ADOS  063713A 

0370  ADDS 

21 

CSC  ADDS  63713 

D370  ADOS 

22 

Program  Total: 

23 

24 

PEO  Total: 

25 

26 

Program  Total: 

27 

28 

COM  SINCGAR  63746A 

0555  0555  SINCGAR 

29  COM  SINCGAR  644746555  D555  SINCGARS  AO 

30  COM  SINCGAR  644805282  D282  C3  SYS  ENG  0 

31  COM  SINCGAR  64805A  D282  0282  C3  SYS 

32  Program  Total: 

►  33 

34  PEO  Total: 

35 


36 

CS 

FMTV 

64604 

DH07 

18.9 

16.4 

5.8 

13.2 

35.4 

37 

Program  Total: 

19 

16 

6 

13.2 

35.4 

38 

39 

CS 

PLS 

64622 

D659  HEAVY  TACTIC 

4.3 

2.9 

2.5 

32.6 

86.2 

40 

Program  Total: 

4 

3 

2 

32.6 

86.2 

41 

42 

PEO  Total: 

23 

19 

8 

16.5 

43.0 

MFE211.PRN 


Thursday,  October  11,  1990  11:19  aa 


Page  1 


1 

AD 

PATRIOT 

2 3801 A 

0036  PATRIOT  PROD 

22.6 

22.4 

16.2 

.9 

72.3 

2 

AD 

PATRIOT 

64307A 

0212  RSI  (SUNK) 

3 

AD 

PATRIOT 

64307A 

0213  RSI  (SUNK) 

4 

AD 

PATRIOT 

64307A 

0291  RSI  (SUNK) 

5 

X 

Prograa  Total: 

23 

22 

16 

.9 

72.3 

O 

7 

a 

PEO  Total: 

23 

22 

16 

.9 

72.3 

o 

9 

AV 
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52.0 

12.3 

2.7 
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22.0 

10 

AV 

APACHE 
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D275  SYNTHETIC  FL 

11 

AV 

APACHE 

648100000 

DB54  ARNY  HE LI  COP 

12 

Prograa  Total: 

52 

12 

3 

76.3 

22.0 

13 

14 

AV 

CHINOOK 

64213 

DC37  ENGINEERING 

15 

AV 

CHINOOK 

64213A 

DC37  ENGINEERING 

16 

Program  Total: 

17 

18 

PEO  Total: 

52 

12 

3 

76.3 

22.0 

19 

20 

ttC 

ADDS 

060371 3A 

0370  ADOS 

21 

C&C 

ADDS 

063713A 

0370  ADOS 

22 

C&C 
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63713 

0370  ADOS 

23 

Program  Total: 

24 

25 

PEO  Total: 

26 

27 

Program  Total: 

28 

29 

CON 

SINCGAR 

63746A 

0555  0555  SINCGAR 

30 

CON 

SINCGAR 

644746555 

0555  SINCGARS  AD 

31 

CON 

SINCGAR 

644805282 

0282  C3  SYS  ENG  0 

32 

CON 

SINCGAR 

64805A 

0282  0282  C3  SYS 

33 

Program  Total: 

34 

35 

PEO  Total: 

36 

37 

CS 

FNTV 

64604 

DH07 

26.9 

26.8 

21.3 

.4 

79.5 

38 

Program  Total: 

27 

27 

21 

.4 

79.5 

39 

40 

CS 

PIS 

64622 

0659  HEAVY  TACTIC 

28.0 

27.9 

16.3 

.4 

58.4 

41 

Program  Total: 

28 

28 

16 

.4 

58.4 

42 

43 

PEO  Total: 

55 

55 

38 

.4 

68.9 
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3  FY90  ROTE  Execution  by  PEO 

4 
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6  ROTE  Execution  Summary  by  PEO  Class  CU] 

7  FY90  ROTE  Execution  as  of  Jul  90 
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Thursday,  October  11,  1990  11:19  am 
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2 

3  FY89  ROTE  Execution  by  PEO 

4 

5  MFE320 

6  ROTE  Execution  Summary  by  PEO  Class  CU] 

7  FY89  ROTE  Execution  as  of  Jul  90 
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24 

25  MFE321 

26  ROTE  Program  Dollar  Sunnary  by  PEO  Class  CU] 

27  FY89  RDTE  Execution  as  of  Jul  90 

28 

29 

30  HFE322 

31  RDTE  Obligated  Dollar  Summary  by  PEO  Class  [U] 

32  FY89  RDTE  Execution  as  of  Jul  90 

33 

34 

35  MFE323 

36  ROTE  Percent  Obligated  Summary  by  PEO  Class  CU] 

37  FY89  RDTE  Execution  as  of  Jul  90 

38 

39 

40  MFE324 


41  ROTE  Percent  Liquidated  Summary  by  PEO  Class  CU] 

42  FY89  RDTE  Execution  as  of  Jul  90 


Army  Acquisition 
Management  System 


4  Procurement  Financial  Execution  Report 
Specifications 

Develop  report  specifications  for  Procurement  Financial 
Execution  MFE050,  MFE260/1/2,  MFE290/1/2, 
MFE360/1/2/3/4,  MFE370/1/2/3/4  and  MFE3 80/1/2/3/4 
EIS  screens  and  develop  report  software. 


Office  of  the  Future®,  Inc. 

115  River  Road,  Edgewater,  NJ  07020 


AAMS  PHASE  III  PROGRAM  SPECIFICATIONS 
Report  Generation 
9/26/90 


Procurement  Execution 


Report  File  Names:  (all  end  with  extension  PRN) 

MFE050 

MFE260 

MFE261 

MFE262 

MFE360 

MFE370 

MFE380 

MFE290 

MFE291 

MFE292 


Purpose:  Procurement  financial  reports  will  list  PEO,  program,  SSN,  Program  line  item  name, 

approved  program,  obligations,  disbursements,  percent  unobligated  and  percent 
disbursed  unless  otherwise  noted. 


MFE050 


Text  report  that  contains  headers  for  MFE050,  MFE260,  MFE261,  MFE262,  MFE290, 
MFE291,  MFE292  procurement  execution  reports. 

#1)  Each  header  contains  the  latest  EXEC_MONTH  from  the  PROC_EXEC  table. 

#2)  Each  header  contains  the  highest  classification  from  all  the  records  selected  from  their  related 
report  files. 

The  Fiscal  Year  is  determined  by  the  FY  field  in  the  PROC_EXEC  table. 

#3a)  Header  for  MFE050  contains  the  latest  fiscal  year. 

#3b)  Header  for  MFE050  contains  the  previous  fiscal  year. 

#3c)  Header  for  MFE050  contains  latest  FY  minus  2. 

#4)  Headers  for  MFE260,  MFE290  contain  the  latest  fiscal  year. 

#5)  Header  for  MFE261,  MFE291  contain  the  previous  fiscal  year. 

#6)  Header  for  MFE262,  MFE292  contain  latest  FY  minus  2. 


FORMAT:  MFE050 

(LJ  SB  Left  Justified,  RJ  =  Right  Justified) 

Except  as  noted  below  the  text  for  this  report  file  is  fixed  as  shown  on  attached  sample. 
(See  sample  for  formatting  information). 

Calculation  (#1)  will  appear  on  lines  7,12,22,32,42,52,  and  62. 

Line  7 

LJ  Col  42-47  =  #1  (after  words  ’as  of  ’  using  [Mon  YY]  format.) 

Line  12  and  22  and  32 

LJ  Col  23-28  -  #1  (afterwords  ’as  of  ’  using  [Mon  YY]  format.) 

Line  42  and  52  and  62 

LJ  Col  4247  =  #1  (after  words  ’as  of  ’  using  [Mon  YY]  format.) 

Calculation  (#2)  will  appear  on  lines  6,11,21,31,41,51  and  61. 

LJ  Col  49-49  =  #2  (after  text  ’Class:  [’) 

Calculations  (#3a-c)  will  appear  on  line  7. 

LJ  Col  3-  4  =  #3a  (after  text  ’FY’  using  [YY]  format.) 

LJ  Col  9-10  =  #3b  (after  text  ’FY’  using  [YY]  format.) 

LJ  Col  18-19  =  #3c  (after  text  ’FY’  using  [YY]  format.) 


Calculation  (#4)  will  appear  on  lines  11  and  41. 


LJ  Col  3-4  =  #4  (after  text  ’FT  using  [YY]  format.) 
Calculation  (#5)  will  appear  on  lines  21  and  51 
LJ  Col  3-4  =  #5  (after  text  ’FT  using  [YY]  format.) 
Calculation  (#6)  will  appear  on  lines  31  and  61 
LJ  Col  3-4  =  #6  (after  text  ’FT  using  [YY]  format) 


Latest  fiscal  year  Item  Control  Number  (SSN)  summary  sorted  by  PEO,  Program  and 
SSN  with  totals  after  each  program  and  each  rEO. 

The  report  will  be  sorted  by  SHORT_PEO,  SHORT  PNA  and  ITEMCTLNUM. 

Find  each  PLI  record  within  a  program  for  each  PEO  with  a  unique  key  (i.e.  PNO, 
ITEMCTLNUM).  Using  the  ITEMCTLNUM  find  the  PROC_EXEC  record  table 
with  a  matching  ITEMCTLNUM  for  the  latest  fiscal  year  (determined  by  the  latest 
FY)  and  the  latest  EXEC  MONTH.  The  unique  key  on  the  PROC  EXEC  table  is 
ITEMCTLNUM,  FY,  and  EXEC  MONTH. 

If  a  PLI  Record  exists  but  there  is  no  related  PROC_EXEC  table  information  then 
print  blanks  for  the  columns  affected.  However,  if  a  record  exists  for  a  different  fiscal 
year  then  skip  the  PLI  record. 

Additionally,  after  eachprogram  break  and  after  each  PEO  break  print  a  total  line 
summing  PROC  EXEC  data.  However,  the  PEO  total  line  should  exclude  any 
PROC_EXEC  data  that  has  been  summed  within  each  PNO  that  was  the  same 
information  but  belonged  to  more  than  one  program  within  that  PEO. 

Calculation  Names  Table 


#1)  SHORT  PEO  PEO 

#2)  SHORT  PNA  PROGRAM 

#3)  ITEMCTLNUM  PLI 

#4)  PLINAME 

#5)  CURR  APRVD  PROGRAM  PROC  EXEC 
#6)  OBLIGATED  FUNDS 
#7)  DISBURSED  "FUNDS 

#8)  UNOBLIGATED  FUNDS/CURR  APRVD  PROGRAM  *  100 
#9)  DISBURSED_FUNDS/OBLIGATED  FUNDS  *  100 


#101  Fixed  text  ’Program  Total:’ 

#1 1 1  Total  of  all  #5  for  each  program. 
#12)  Total  of  all  #6  for  each  program. 
#13)  Total  of  all  #7  for  each  program. 


#14)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100 
for  each  program. 


#15)  Sum  of  DISBURSED_FUNDS/Sum  of  OBLIGATED JFUNDS  *  100  for  each 
program. 


#16)  Fixed  text  ’PEO  Total:’ 

#17)  Total  of  all  #5  for  each  PEO. 
#18)  Total  of  all  #6  for  each  PEO. 
#19)  Total  of  all  #7  for  each  PEO. 


#20)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100 
for  each  PEO. 

#21)  Sum  of  DISBURSED_FUNDS/Sum  of  OBLIGATED  FUNDS  *  100  for  each 
PEO. 


FGiiMAT:  MFE260 

(Lj  =  Left  Justified,  RJ  =  Right  Justified) 


The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #l-#9  will  appear  vertically  starting  on  line  1. 

U  Col  1-3  =  #1 

LJ  Col  5-11  =  #2 

U  Col  13-18  =  #3 

U  Col  20-42  =  #4  (Trunc) 

RJ  Col  44-50  =  #5  (Using  [9,999.9]  format) 

RJ  Col  52-58  =  #6  (Using  [9,999.9]  format) 

RJ  Col  60-66  =  #7  (Using  [9,999.9]  format) 

RJ  Col  68-72  =  #8  (Using  [999.9]  format) 

RJ  Col  74-78  =  #9  (Using  [999.9]  format) 


Calculations  #10-#  15  will  appear  vertically  after  each  program  break. 

LJ  Col  24-37  =  #10  (Fixed  text  ’Program  Total:’) 

RJ  Col  44-50  =  #11  (Using  [999,999]  format) 

RJ  Col  52-58  =  #  12  (Using  [999,999]  format) 

RJ  Col  60-66  =  #  13  (Using  [999,999]  format) 

RJ  Col  68-72  =  #14  (Using  [999.9]  format) 

RJ  Col  74-78  =  #15  (Using  [999.9]  format) 

Calculations  #16-#21  will  appear  vertically  after  each  PEO  break. 

U  Col  24-33  =  #16  (Fixed  text  ’PEO  Total:’) 

RJ  Col  44-50  =  #  17  (Using  [999,999]  format) 

RJ  Col  52-58  =  #18  (Using  [999,999]  format) 

RJ  Col  60-66  =  #19  (Using  [999,999]  format) 

RJ  Col  68-72  =  #20  (Using  [999.9]  format) 

RJ  Col  74-78  =  #21  (Using  [999.9]  format) 


Previous  fiscal  year  Item  Control  Number  (SSN)  summary  sorted  by  PEO,  Program 
and  SSN  with  totals  after  each  program  and  each  PEO. 

The  report  will  be  sorted  by  SHORT_PEO,  SHORT  PNA  and  ITEMCTLNUM. 

Find  each  PLI  record  within  a  program  for  each  PEO  with  a  unique  key  (i.e.  PNO, 
ITEMCTLNUM).  Usingthe  ITEMCTLNUM  find  the  PROC_EXEC  record  table 
with  a  matching  ITEMCTLNUM  for  the  previous  fiscal  year  (determined  by  the  latest 
FY-1)  and  the  latest  EXEC  MONTH.  The  unique  key  on  the  PROC  EXEC  table  is 
ITEMCTLNUM,  FY,  and  EXECMONTH. 

If  a  PLI  Record  exists  but  there  is  no  related  PROCEXEC  table  information  then 
print  blanks  for  the  columns  affected.  However,  if  a  record  exists  for  a  different  fiscal 
year  then  skip  the  PLI  record. 


Additionally,  after  each  program  break  and  after  each  PEO  break  print  a  total  line 
summing  PROC  EXEC  data.  However,  the  PEO  total  line  should  exclude  any 
PROC  EXEC  data  that  has  been  summed  within  each  PNO  that  was  the  same 
information  but  belonged  to  more  than  one  program  within  that  PEO. 


Calculation  Names 


Table 


#1)  SHORT  PEO  PEO 

#2)  SHORT  PNA  PROGRAM 

#3)  ITEMCTLNUM  PLI 

#4)  PLINAME 

#5)  CURR  APRVD  PROGRAM  PROC  EXEC 
#6)  OBLIGATED  FUNDS 
#7)  DISBURSED  "FUNDS 

#8)  UNOBLIGATED  FUNDS/CURR  APRVD  PROGRAM  *  100 
#9)  DISBURSED_FUNDS/OBLIGATED  FUNDS  *  100 


#101  Fixed  text  ’Program  Total:’ 

#11)  Total  of  all  #5  for  each  program. 

#12)  Total  of  all  #6  for  each  program. 

#13)  Total  of  all  #7  for  each  program. 

#14)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100 
for  each  program. 


#15)  Sum  of  DISBURSED_FUNDS/Sum  of  OBLIGATED JFUNDS  *  100  for  each 
program. 


#16)  Fixed  text  ’PEO  Total:’ 

#17)  Total  of  all  #5  for  each  PEO. 
#  18)  Total  of  all  #6  for  each  PEO. 
#19)  Total  of  all  #7  for  each  PEO. 


#20)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100 
for  each  PEO. 


#21)  Sum  of  DISBURSED  FUNDS/Sum  of  OBLIGATED  FUNDS  *  100  for  each 
PEO.  - 


FORMAT:  MFE261 


(LJ  =  Left  Justified,  RJ  =  Right  Justified) 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #l-#9  will  appear  vertically  starting  on  line  1. 

U  Col  1-3  =  #1 
U  Col  5-11  =  #2 
U  Col  13-18  =  #3 
U  Col  20-42  =  #4  (Trunc) 

RJ  Col  44-50  =  #5  (Using  [9,999.9]  format) 

RJ  Col  52-58  =  #6  (Using  [9,999.9]  format) 

RJ  Col  60-66  =  #7  (Using  [9,999.9]  format) 

RJ  Col  68-72  =  #8  (Using  [999.9]  format) 

RJ  Col  74-78  =  #9  (Using  [999.9]  format) 


Calculations  #10-#  15  will  appear  vertically  after  each  program  break. 

LJ  Col  24-37  =  #10  (Fixed  text  ’Program  Total:’) 

RJ  Col  44-50  =  #11  (Using  [999,999]  format) 

RJ  Col  52-58  =  #12  (Using  [999,999]  format) 

RJ  Col  60-66  =  #13  (Using  [999,999]  format) 

RJ  Col  68-72  =  #14  (Using  [999.9]  format) 

RJ  Col  74-78  =  #15  (Using  [999.9]  format) 

Calculations  #16-#21  will  appear  vertically  after  each  PEO  break. 

U  Col  24-33  =  #  16  (Fixed  text  ’PEO  Total:’) 

RJ  Col  44-50  =  #17  (Using  [999,999]  format) 

RJ  Col  52-58  =  #18  (Using  [999,999]  format) 

RJ  Col  60-66  =  #  19  (Using  [999,999]  format) 

RJ  Col  68-72  =  #20  (Using  [999.9]  format) 

RJ  Col  74-78  =  #21  (Using  [999.9]  format) 


I 


MFE262 


I 


» 


I 


» 


I 


I 


» 


Latest  fiscal  year  less  2  (i.e.  2  Fiscal  years  back)  Item  Control  Number  (SSN)  summary 
sorted  by  PEO,  Program  and  SSN  with  totals  after  each  program  and  each  PEO. 

The  report  will  be  sorted  by  SHORT_PEO,  SHORT  PNA  and  ITEMCTLNUM. 

Find  each  PLI  record  within  a  program  for  each  PEO  with  a  unique  key  (i.e.  PNO, 
ITEMCTLNUM).  Usingthe  ITEMCTLNUM  find  the  PROC_EXEC  record  table 
with  a  matching  ITEMCTLNUM  for  2  fiscal  years  back  (determined  by  the  latest  FY- 
2)  and  the  latest  EXEC_MONTH.  The  unique  key  on  the  PROC  EXEC  table  is 
ITEMCTLNUM,  FY,  and  EXEC  MONTH. 

If  a  PLI  Record  exists  but  there  is  no  related  PROCEXEC  table  information  then 
print  blanks  for  the  columns  affected.  However,  if  a  record  exists  for  a  different  fiscal 
year  then  skip  the  PLI  record. 

Additionally,  after  each  program  break  and  after  each  PEO  break  print  a  total  line 
summing  PROC  EXEC  data.  However,  the  PEO  total  line  should  exclude  any 
PROC  EXEC  data  that  has  been  summed  within  each  PNO  that  was  the  same 
information  but  belonged  to  more  than  one  program  within  that  PEO. 

Calculation  Names  Table 


#1)  SHORT  PEO  PEO 

#2)  SHORT"PNA  PROGRAM 

#3)  ITEMCTLNUM  PLI 

#4)  PLINAME 

#5)  CURR  APRVD  PROGRAM  PROC_EXEC 
#6)  OBLIGATED  FUNDS 
#7)  DISBURSED  "FUNDS 

#8)  UNOBLIGATED  FUNDS/CURR  APRVD  PROGRAM  *  100 
#9)  DISBURSED_FLfNDS/OBLIGATED_FUNDS  *  100 

#101  Fixed  text  ’Program  Total:’ 

#11 )  Total  of  all  #5  for  each  program. 

#12)  Total  of  all  #6  for  each  program. 

#13)  Total  of  all  #7  for  each  program. 

#14)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100 
for  each  program. 

#15)  Sum  of  DISBURSED_FUNDS/Sum  of  OBLIGATED JFUNDS  *  100  for  each 
program. 


#16)  Fixed  text  ’PEO  Total:’ 

#17)  Total  of  all  #5  for  each  PEO. 
#18)  Total  of  all  #6  for  each  PEO. 
#19)  Total  of  all  #7  for  each  PEO. 


> 


#20)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100 
for  each  PEO. 

#21)  Sum  of  DISBURSED_FUNDS/Sum  of  OBLIGATED  FUNDS  *  100  for  each 
PEO. 


FORMAT:  MFE262 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 


The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #l-#9  will  appear  vertically  starting  on  line  1. 

U  Col  l-  3  =  #1 
U  Col  5-11  =  #2 
U  Col  13-18  =  #3 
LJ  Col  20-42  =  #4  (Trunc) 

RJ  Col  44-50  =  #5  (Using  [9,999.9]  format) 

RJ  Col  52-58  =  #6  (Using  [9,999.9]  format) 

RJ  Col  60-66  =  #7  (Using  [9,999.9]  format) 

RJ  Col  68-72  =  #8  (Using  [999.9]  format) 

RJ  Col  74-78  =  #9  (Using  [999.9]  format) 


Calculations  #10-#  15  will  appear  vertically  after  each  program  break. 

LJ  Col  24-37  =  #10  (Fixed  text  ’Program  Total:’) 

RJ  Col  44-50  =  #11  (Using  [999,999]  format) 

RJ  Col  52-58  =  #  12  (Using  [999,999]  format) 

RJ  Col  60-66  =  #  13  (Using  [999,999]  format) 

RJ  Col  68-72  =  #  14  (Using  [999.9]  format) 

RJ  Col  74-78  =  #15  (Using  [999.9]  format) 

Calculations  #16-#21  will  appear  vertically  after  each  PEO  break. 

U  Col  24-33  =  #16  (Fixed  text  ’PEO  Total:’) 

RJ  Col  44-50  =  #17  (Using  [999,999]  format) 

RJ  Col  52-58  =  #18  (Using  [999,999]  format) 

RJ  Col  60-66  =  #19  (Using  [999,999]  format) 

RJ  Col  68-72  =  #20  (Using  [999.9]  format) 

RJ  Col  74-78  =  #21  (Using  [999.9]  format) 


Text  report  that  contains  headers  for  MFE360,  MFE361,  MFE362,  MFE363,  MFE364 
and  graph  calculations  for  these  screens. 

#1)  Each  header  contains  the  latest  EXEC_MONTH  from  the  PROC_EXEC  table. 

#2)  Each  header  contains  the  highest  classification  from  all  the  records  selected  to  obtain  any 
PROC_EXEC  data  for  graph  calculations  done  in  this  report. 

#3)  Each  header  contains  the  latest  fiscal  year  determined  by  the  latest  FY  field  in  the  PROC  EXEC 
table. 

The  remaining  calculations  pertain  to  graphs. 

A  list  of  PEO’s  is  printed  horizontally  and  alphabetically  upto  a  maximum  of  12.  If 
there  are  less  than  12  PEO’s  then  Blank  fill  the  columns  related  to  calculation  #4  and 
zero  out  the  columns  related  to  calculations  (#5a-l  through  #16a-l) 

#4a-l)  A  list  of ’SHORT_PEO’s  from  the  PEO  table  sorted  by  SHORT JPEO. 

To  obtain  sums  and  percentages  by  PEO  use  the  same  methodology  as  used  by 
MFE260  to  obtain  PEO  total  information. 

#5a-l)  A  sum  of  CONG  AUTH  PROGRAM  from  PROC_EXEC  for  each  PEO. 

#6a-l)  A  sum  of  CURR_APRVD  PROGRAM  from  PROC_EXEC  for  each  PEO. 

#7a-l)  A  sum  of  CUM  CUR_OBL_PLAN  from  PROC_EXEC  for  each  PEO. 

#8a-l)  A  sum  of  OBLIGATED_FUNDS  from  PROC  EXEC  for  each  PEO. 

#9a-l)  A  sum  of  D  ISBURSED_FUNDS  from  PROC_EXEC  for  each  PEO. 

#10a-l)  A  sum  of  UNOBLIGATED_FUNDS  from  PROC.EXEC  for  each  PEO. 

#lla-l)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100  from 
PROC  EXEC  for  each  PEO. 

#12a-b  Sum  of  DISBURSED_FUNDS/Sum  of  OBLIGATED_FUND  *  100  from  PROC_EXEC  for 
each  PEO. 

#13a-l)  Sum  of  OBLIGATED  FUNDS, Sum  of  CURR_APRVD_PROGRAM  *  100  from 
PROC_EXEC  for  each  PEO. 

#14a-l)  Same  as  #1  la-1. 

#15a-l)  Same  as  #12a-l. 

#16a-l)  ((Sum  of  OBLIGATED  FUNDS  -  Sum  of  DISBURSED  FUNDS)/Sumof 
OBLIGATED_FUNDS)  *  100  from  PROC_EXEC  for  each  PEO? 


FORMAT:  MFE360 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 

Except  as  noted  below  the  text  for  this  report  file  is  fixed  as  shown  on  attached  sample. 
(See  sample  for  formatting  information). 

Calculation  (#1)  will  appear  on  lines  7,33,38,43  and  48. 

LJ  Col  27-32  =  #1  (afterwords  ’as  of’  using  [Mon  YY]  format.) 

Calculation  (#2)  will  appear  on  lines  6,31,36,41  and  46. 

U  Col  49-49  =  #2  (after  text  ’Class:  [’) 

Calculations  (#3)  will  appear  on  line  3,7,33,38,43  and  48. 

LJ  Col  3-4  =  #3  (after  text  ’FT  using  [YY]  format.) 

Calculations  (#4a-l)  will  appear  on  line  10. 

U  Col  8-10  =  #4a 
U  Col  13-15  =  #4b 
U  Col  18-20  =  #4c 
U  Col  24-26  =  #4d 
U  Col  29-31  =  #4e 
U  Col  35-37  =  #4f 
U  Col  40-42  =  #4g 
U  Col  45-47  =  #4h 
U  Col  50-52  =  #4i 
U  Col  56-58  =  #4j 
U  Col  61-63  =  #4k 
U  Col  66-68  =  #41 


Calculations  (#5a-l)  will  appear  on  line  1 1 
Calculations  (#6a-H  will  appear  on  line  12 
Calculations  (#7a-l)  will  appear  on  line  13 
Calculations  (#8a-l)  will  appear  on  line  14 
Calculations  ( #9a-l)  will  appear  on  line  15 
Calculations  (#10a-l)  will  appear  on  line  16 

RJ  Col  7-10  =  #5-10a  (Using  [9999]  format.) 

RJ  Col  12-15  *  #5- 10b  (Using  [9999]  format.) 

RI  Col  17-20  =  #5-  10c  (Using  [9999]  format.) 

RJ  Col  23-26  =  #5-10d  (Using  [9999]  format.) 

RJ  Col  28-31  =  #5-10e  (Using  [9999]  format.) 

RJ  Col  34-37  =  #5-10f  (Using  [9999]  format.) 

RJ  Col  39-42  ■  #5-10g  (Using  [9999]  format) 

RJ  Col  44-47  =  #5-10h  (Using  [9999]  format.) 

RJ  Col  49-52  =  #5-10i  (Using  [9999]  format.) 

RJ  Col  55-58  =  #5-10j  (Using  [9999]  format.) 

RJ  Col  60-63  ■  #5- 10k  (Using  [9999]  format.) 

RJ  Col  65-68  =  #5-101  (Using  [9999]  format.) 


Calculations  (#lla-l)  will  appear  on  line  17 
Calculations  (#12a-l)  will  appear  on  line  18 
Calculations  (#  13a-H  will  appear  on  line  19 
Calculations  (#14a-l)  will  appear  on  line  20 
Calculations  (#15a-ri  will  appear  on  line  21 
Calculations  (#16a-l)  will  appear  on  line  22 

RJ  Col  8-11  =  #9-16a  (Using  [999%]  format.) 

RJ  Col  13-16  =  #9- 16b  (Using  [999%]  format.) 

RJ  Col  18-21  =  #9- 16c  (Using  [999%]  format.) 

RJ  Col  24-27  =  #9-16d  (Using  [999%]  format.) 
RJ  Col  29-32  =  #9-16e  (Using  [999%]  format) 

RJ  Col  35-38  =  #9-16f  (Using  [999%]  format.) 

RJ  Col  40-43  =  #9-16g  (Using  [999%]  format.) 

RJ  Col  45-48  =  #9-16h  (Using  [999%]  format.) 

RJ  Col  50-53  =  #9-16i  (Using  [999%]  format.) 

RJ  Col  56-59  =  #9-16j  (Using  [999%]  format.) 

RJ  Col  61-64  =  #9- 16k  (Using  [999%]  format.) 

RJ  Col  66-69  =  #9-161  (Using  [999%]  format.) 


Text  report  that  contains  headers  for  MFE370,  MFE371,  MFE372,  MFE373,  MFE374 
and  graph  calculations  for  these  screens. 

#1)  Each  header  contains  the  latest  EXEC_MONTH  from  the  PROC_EXEC  table. 

#2)  Each  header  contains  the  highest  classification  from  all  the  records  selected  to  obtain  any 
PROC_EXEC  data  for  graph  calculations  done  in  this  report. 

#3)  Each  header  contains  the  previous  fiscal  year  (determined  by  the  latest  FY  field  minus  one)  in  the 
PROCEXEC  table. 

The  remaining  calculations  pertain  to  graphs. 

A  list  of  PEO’s  is  printed  horizontally  and  alphabetically  upto  a  maximum  of  12.  If 
there  are  less  than  12  PEO’s  then  Blank  fill  the  columns  related  to  calculation  #4  and 
zero  out  the  columns  related  to  calculations  (#5a-l  through  #16a-l) 

#4a-l)  A  list  of ’SHORT_PEO*s  from  the  PEO  table  sorted  by  SHORT_PEO. 

To  obtain  sums  and  percentages  by  PEO  use  the  same  methodology  as  used  by 
MFE261  to  obtain  PEO  total  information. 

#5a-l)  A  sum  of  CONG  AUTH  PROGRAM  from  PROC  EXEC  for  each  PEO. 

#6a-l)  A  sum  of  CURR_APRVD_PROGRAM  from  PROC_EXEC  for  each  PEO. 

#7a-l)  A  sum  of  CUM_CUR  OBL_PLAN  from  PROC_EXEC  for  each  PEO. 

#8a-l)  A  sum  of  OBLIGATED_FUNDS  from  PROC  EXEC  for  each  PEO. 

#9a-l)  A  sum  of  DISBURSED_FUNDS  from  PROC  EXEC  for  each  PEO. 

#10a-l)  A  sum  of  UNOBLIGATED_FUNDS  from  PROC_EXEC  for  each  PEO. 

#  1  la-1)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR_APRVD_PROGRAM  *  100  from 
PROC_EXEC  for  each  PEO. 

#  12a-l)  Sum  of  DISBURSED_FUNDS/S  am  of  OBLIGATED_FUND  *  100  from  PROC_EXEC  for 
each  PEO. 

#13a-l)  Sum  of  OBLIGATED  FUNDS/Sum  of  CURR_APRVD_PROGRAM  *  100  from 
PROC_EXEC  for  each  PEO. 

#14a-l)  Same  as  #lla-l. 

#15a-l)  Same  as  #12a-l. 

#16a-l)  ((Sum  of  OBLIGATED_FUNDS  -  Sum  of  DISBURSED_FUNDS)/Sum  of 
OBLIGATED_FUNDS)  *  100  from  PROC_EXEC  for  each  PEO? 


FORMAT:  MFE370 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 


Except  as  noted  below  the  text  for  this  report  file  is  fixed  as  shown  on  attached  sample. 
(See  sample  for  formatting  information). 

Calculation  (#1)  will  appear  on  lines  7,33,38,43  and  48. 

U  Col  27-32  =  #1  (after  words  ’as  of  ’  using  [Mon  YY]  format.) 

Calculation  (#2)  will  appear  on  lines  6,31,36,41  and  46. 

U  Col  49-49  =  #2  (after  text  ’Class:  [’) 

Calculations  (#3)  will  appear  on  line  3,7,33,38,43  and  48. 

LJ  Col  3-4  =  #3  (after  text  ’FY’  using  [YY]  format.) 

Calculations  (#4a-l)  will  appear  on  line  10. 

U  Col  8-10  =  #4a 
U  Col  13-15  =  #4b 
U  Col  18-20  =  #4c 
U  Col  24-26  =  #4d 
U  Col  29-31  =  #4e 
U  Col  35-37  =  #4f 
U  Col  40-42  =  #4g 
U  Col  45-47  =  #4h 
U  Col  50-52  =  #4i 
LJ  Col  56-58  =  #4j 
U  Col  61-63  =  #4k 
U  Col  66-68  =  #41 


Calculations  (#5a-l)  will  appear  on  line  11 
Calculations  (#6a-l)  will  appear  on  line  12 
Calculations  (#7a-ll  will  appear  on  line  13 
Calculations  (#8a-n  will  appear  on  line  14 
Calculations  (#9a-l)  will  appear  on  line  15 
Calculations  (#10a-l)  will  appear  on  line  16 

RJ  Col  7-10  =  #5-10a  (Using  [9999]  format) 

RJ  Col  12-15  =  #5-10b  (Using  [9999]  format) 

RJ  Cc*  17-20  =  #5- 10c  (Using  [9999]  format) 

RJ  Col  23-26  =  #5-10d  (Using  [9999]  format) 

RJ  Col  28-31  -  #5-10e  (Using  [9999]  format) 

RJ  Col  34-37  =  #5-10f  (Using  [9999]  format) 

RJ  Col  39-42  =  #5-10g  (Using  [9999]  format.) 

RJ  Col  44-47  =  #5-10h  (Using  [9999]  format) 

RJ  Col  49-52  =  #5-10i  (Using  [9999]  format) 

RJ  Col  55-58  =  #5-10j  (Using  [9999]  format) 

RJ  Col  60-63  =  #5-10k  (Using  [9999]  format) 

RJ  Col  65-68  =  #5-101  (Using  [9999]  format) 


Calculations  (#1  la-11  will  appear  on  line  17 
Calculations  (#12a-l)  will  appear  on  line  18 
Calculations  i  #13a-l)  will  appear  on  line  19 
Calculations  f#14a-ri  will  appear  on  line  20 
Calculations  f  #15a-l)  will  appear  on  line  21 
Calculations  (#16a-l)  will  appear  on  line  22 

RJ  Col  8-11  =  #9- 16a  (Using  [999%]  format) 

RJ  Col  13-16  =  #9-16b  (Using  [999%]  format) 
RJ  Col  18-21  =  #9- 16c  (Using  [999%]  format) 

RJ  Col  24-27  =  #9-16d  (Using  [999%]  format) 
RJ  Col  29-32  =  #9-16e  (Using  [999%]  format) 

RJ  Col  35-38  =  #9-16f  (Using  [999%]  format.) 

RJ  Col  40-43  =  #9-16g  (Using  [999%]  format.) 

RJ  Col  45-48  =  #9-16h  (Using  [999%]  format) 
RJ  Col  50-53  =  #9-16i  (Using  [999%]  format) 

RJ  Col  56-59  =  #9-16j  (Using  [999%]  format.) 

RJ  Col  61-64  =  #9- 16k  (Using  [999%]  formaL) 
RJ  Col  66-69  =  #9-161  (Using  [999%]  format.) 


Text  report  that  contains  headers  for  MFE380,  MFE381,  MFE382,  MFE383,  MFE384 
and  graph  calculations  for  these  screens. 

#1)  Each  header  contains  the  latest  EXEC_MONTH  from  the  PROC  EXEC  table. 

#2)  Each  header  contains  the  highest  classification  from  all  the  records  selected  to  obtain  any 
PROC_EXEC  data  for  graph  calculations  done  in  this  report. 

#3)  Each  header  contains  2  fiscal  vears  back  (determined  by  the  latest  FY  field  minus  two)  in  the 
PROC_EXEC  table. 

The  remaining  calculations  pertain  to  graphs. 

A  list  of  PEO’s  is  printed  horizontally  and  alphabetically  upto  a  maximum  of  12.  If 
there  are  less  than  12  PEO’s  then  Blank  fill  the  columns  related  to  calculation  #4  and 
zero  out  the  columns  related  to  calculations  (#5a-l  through  #16a-l) 

#4a-l)  A  list  of  ’SHORT  PEO’s  from  the  PEO  table  sorted  by  SHORT_PEO. 

To  obtain  sums  and  percentages  by  PEO  use  the  same  methodology  as  used  by 
MFE262  to  obtain  PEO  total  information. 

#5a-l)  A  sum  of  CONG  AUTH  PROGRAM  from  PROC_EXEC  for  each  PEO. 

#6a-l)  A  sum  of  CURR_APRVD_PROGRAM  from  PROC_EXEC  for  each  PEO. 

#7a-l)  A  sum  of  CUM  CUR  OBL_PLAN  from  PROC  EXEC  for  each  PEO. 

#8a-l)  A  sum  of  OBLIGATED_FUNDS  from  PROC  EXEC  for  each  PEO. 

#9a-l)  A  sum  of  DISBURSED  FUNDS  from  PROC_EXEC  for  each  PEO. 

#10a-l)  A  sum  of  UNOBLIGATED_FUNDS  from  PROC_EXEC  for  each  PEO. 

#lla-l)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD_PROGRAM  *  100  from 
PROC_EXEC  for  each  PEO. 

#12a-l)  Sum  of  DISBURSED_FUNDS/Sum  of  OBLIGATED_FUND  *  100  from  PROC_EXEC  for 
each  PEO. 

#13a-l)  Sum  of  OBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100  from 
PROC_EXEC  for  each  PEO. 

#14a-l)  Same  as  #lla-l. 

#15a-l)  Same  as  #12a-l. 

#16a-l)  ((Sum  of  OBLIGATED  FUNDS  -  Sum  of  DISBURSED_FUNDS)/Sum  of 
OBLIGATED_FUNDS)  *  100  from  PROC_EXEC  for  each  PEO. 


FORMAT:  MFE380 

(U  =  Left  Justified,  RJ  =  Right  Justified) 


Except  as  noted  below  the  text  for  this  report  file  is  fixed  as  shown  on  attached  sample. 
(See  sample  for  formatting  information). 

Calculation  (#1)  will  appear  on  lines  7,33,38,43  and  48. 

LJ  Col  27-32  =  #1  (after  words  'as  of  ’  using  [Mon  YY]  format.) 

Calculation  (#2)  will  appear  on  lines  6,31,36,41  and  46. 

U  Col  49-49  =  #2  (after  text  'Class:  [') 

Calculations  (#3)  will  appear  on  line  3,7,33,38,43  and  48. 

LJ  Col  3-4  =  #3  (after  text  ’FY’  using  [YY]  format) 

Calculations  (#4a-l)  will  appear  on  line  10. 

U  Col  8-10  =  #4a 
U  Col  13-15  =  #4b 
U  Col  18-20  =  #4c 
U  Col  24-26  =  #4d 
LJ  Col  29-31  =  #4e 
U  Col  35-37  =  #4f 
U  Col  40-42  =  #4g 
U  Col  45-47  =  #4h 
U  Col  50-52  =  #4i 
U  Col  56-58  =  #4j 
U  Col  61-63  =  #4k 
U  Col  66-68  =  #41 


Calculations  (#5a-H  will  appear  on  line  11 
Calculations  (#6a-n  will  appear  on  line  12 
Calculations  f  #7a-ll  will  appear  on  line  13 
Calculations  (#8a-l)  will  appear  on  line  14 
Calculations  (#9a-l)  will  appear  on  line  15 
Calculations  (#10a-l)  will  appear  on  line  16 

RJ  Col  7-10  =  #5-10a  (Using  [9999]  format.) 

RJ  Col  12-15  =  #5- 10b  (Using  [9999]  format) 

RJ  Col  17-20  =  #5-10c  (Using  [9999]  format) 

RJ  Col  23-26  =  #5-10d  (Using  [9999]  format.) 

RJ  Col  28-31  =  #5-10e  (Using  [9999]  format) 

RJ  Col  34-37  =  #5-10f  (Using  [9999]  format) 

RJ  Col  39-42  =  #5-10g  (Using  [9999]  format.) 

RJ  Col  44-47  =  #5-  lOh  (Using  [9999]  format.) 

RJ  Col  49-52  =  #5-10i  (Using  [9999]  format) 

RJ  Col  55-58  =  #5-10j  (Using  [9999]  format.) 

RJ  Col  60-63  =  #5-10k  (Using  [9999]  format) 

RJ  Col  65-68  =  #5-101  (Using  [9999]  format) 


Calculations  f#l la-11  will  appear  on  line  17 
Calculations  (#12a-H  will  appear  on  line  18 
Calculations  (#13a-n  wiil  appear  on  line  19 
Calculations  f  #14a-l)  will  appear  on  line  20 
Calculations  (#15a-l)  will  appear  on  line  21 
Calculations  (#16a-l)  will  appear  on  line  22 

RJ  Col  8-11  =  #9-16a  (Using  [999%]  format.) 

RJ  Col  13-16  =  #9- 16b  (Using  [999%]  format) 
RJ  Col  18-21  =  #9- 16c  (Using  [999%]  format) 

RJ  Col  24-27  =  #9-16d  (Using  [999%]  format) 
RJ  Col  29-32  =  #9-16e  (Using  [999%]  format) 
RJ  Col  35-38  =  #9-16f  (Using  [999%]  format) 

RJ  Col  40-43  =  #9-16g  (Using  [999%]  format) 

RJ  Col  45-48  =  #9-16h  (Using  [999%]  format.) 
RJ  Col  50-53  =  #9-16i  (Using  [999%]  format) 

RJ  Col  56-59  =  #9-16j  (Using  [999%]  formaL) 

RJ  Col  61-64  =  #9-16k  (Using  [999%]  format) 
RJ  Col  66-69  =  #9-161  (Using  [999%]  format) 


Latest  fiscal  year  Obligation  Plan  summary  sorted  by  PEO,  Program  and  SSN  with 
totals  after  each  program  and  each  PEO. 

The  report  will  be  sorted  by  SHORT_PEO,  SHORT  PNA  and  ITEMCTLNUM. 

Find  each  PLI  record  within  a  program  for  each  PEO  with  a  unique  key  (i.e.  PNO, 
ITEMCTLNUM).  Usingthe  ITEMCTLNUM  find  the  PROC_EXEC  record  table 
with  a  matching  ITEMCTLNUM  for  the  latest  fiscal  year  (determined  by  the  latest 
FY)  and  the  latest  EXEC  MONTH.  The  unique  key  on  the  PROC  EXEC  table  is 
ITEMCTLNUM,  FY,  and  EXEC_MONTH. 

If  a  PLI  Record  exists  but  there  is  no  related  PROCEXEC  table  information  then 
print  blanks  for  the  columns  affected.  However,  if  a  record  exists  for  a  different  fiscal 
year  then  skip  the  PLI  record. 

Additionally,  after  eachprogram  break  and  after  each  PEO  break  print  a  total  line 
summing  PROC  EXEC  data.  However,  the  PEO  total  line  should  exclude  any 
PROC  EXEC  data  that  has  been  summed  within  each  PNO  that  was  the  same 
information  but  belonged  to  more  than  one  program  within  that  PEO. 

Calculation  Names  Table 


#1)  SHORT  PEO  PEO 

#2)  SHORT  PNA  PROGRAM 

#3)  ITEMCTLNUM  PLI 

#4)  PLINAME 

#5)  CURR  APRVD  PROGRAM  PROC_EXEC 
#6)  CUM  CUR  OBL  PLAN 
#7)  OBLIGATED  FUNDS 

#8)  ((OBLIGATED  FUNDS  -  CUM_CUR_OBL_PLAN)/ 

CUM  CUR  OBL  PLAN)  *  100 

#9)  unObliGateD_funds/curr_aprvd_program  *  100 

#101  Fixed  text  ’Program  Total:’ 

#11)  Total  of  all  #5  for  each  program. 

#12)  Total  of  all  #6  for  each  program. 

#13)  Total  of  all  #7  for  each  program. 

#14)  ((Sum  of  OBLIGATED  FUNDS  -  Sum  of  CUMCUROBLPLAN )/ 

Sum  of  CUM_CUR_OBLjPLAN)  *  100  for  each  program. 

#15)  Sum  of  UNOBLIGATEDJFUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100 
for  each  program. 


#16)  Fixed  text  ’PEO  Total:’ 

#17)  Total  of  all  #5  for  each  PEO. 
#18)  Total  of  all  #6  for  each  PEO. 
#19)  Total  of  all  #7  for  each  PEO. 


#20)  ((Sum  of  OBLIGATED  FUNDS  -  Sum  of  CUM  CUR_OBL_PLAN)/ 

Sum  of  CUMCUROBLjPLAN)  *  100  for  each  PEO. 

#21)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APR VD  PROGRAM  *  100 
for  each  PEO. 


FORMAT:  MFE290 


(LJ  =  Left  Justified,  RJ  =  Right  Justified)  ~~  ” 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #l-#9  will  appear  vertically  starting  on  line  1. 

U  Col  1-3  =  #1 
LJ  Col  5-11  =  #2 
U  Col  13-18  =  #3 
U  Col  20-42  =  #4  (Trunc) 

RJ  Col  44-50  =  #5  (Using  [9,999.9]  format) 

RJ  Col  52-58  =  #6  (Using  [9,999.9)  format) 

RJ  Col  60-66  =  #7  (Using  [9,999.9]  format) 

RJ  Col  68-72  =  #8  (Using  [999.9]  format) 

RJ  Col  74-78  =  #9  (Using  [999.9]  format) 


Calculations  #10-#  15  will  appear  vertically  after  each  program  break. 


LJ  Col  24-37  =  #10  (Fixed  text  ’Program  Total:’) 

RJ  Col  44-50  =  #11  (Using  [999,999]  format) 

RJ  Col  52-58  =  #  12  (Using  [999,999]  format) 

RJ  Col  60-66  =  #13  (Using  [999,999]  format) 

RJ  Col  68-72  =  #  14  (Using  [999.9]  format) 

RJ  Col  74-78  =  #  15  (Using  [999.9]  format) 

Calculations  #16-#21  will  appear  vertically  after  each  PEO  break. 


u 

Col 

24-33 

RJ 

Col 

44-50 

RJ 

Col 

52-58 

RJ 

Col 

60-66 

RJ 

Col 

68-72 

RJ 

Col 

74-78 

#16  (Fixed  text  ’PEO  Total:’) 
#17  (Using  [999,999]  format) 
#18  (Using  [999,999]  format) 
#19  (Using  [999,999]  format) 
#20  (Using  [999.9]  format) 
#21  (Using  [999.9]  format) 


Previous  fiscal  year  Obligation  Plan  summary  sorted  by  PEO,  Program  and  SSN  with 
totals  after  each  program  and  each  PEO. 

The  report  will  be  sorted  by  SHORT  PEO,  SHORTPNA  and  1TEMCTLNIJM. 

Find  each  PLI  record  within  a  program  for  each  PEO  with  a  unique  key  (i.e.  PNO, 
ITEMCTLNUM).  Using  the  ITEMCTLNUM  find  the  PROC  EXEC  record  table 
with  a  matching  ITEMCTLNUM  for  theprevious  fiscal  year  (determined  by  the  latest 
FY-1)  and  the  latest  EXEC  MONTH.  The  unique  key  on  the  PROC  EXEC  table  is 
ITEMCTLNUM,  FY,  and  EXECMONTH. 

If  a  PLI  Record  exists  but  there  is  no  related  PROCEXEC  table  information  then 
print  blanks  for  the  columns  affected.  However,  if  a  record  exists  for  a  different  fiscal 
year  then  skip  the  PLI  record. 

Additionally,  after  each  program  break  and  after  each  PEO  break  print  a  total  line 
summing  PROC  EXEC  data.  However,  the  PEO  total  line  should  exclude  any 
PROC  EXEC  data  that  has  been  summed  within  each  PNO  that  was  the  same 
information  but  belonged  to  more  than  one  program  within  that  PEO. 

Calculation  Names  Table 

#1)  SHORT  PEO  PEO 

#2)  SHORT  PNA  PROGRAM 

#3)  ITEMCTLNUM  PLI 

#4)  PLINAME 

#5)  CURR  APRVD  PROGRAM  PROC  EXEC 
#6)  CUM  CUR  OBL  PLAN 
#7)  OBLIGATED  FUNDS 

#8)  ((OBLIGATED  FUNDS  -  CUM  CUR  OBL  PLAN)/ 

CUM  CUR  OBL"PLAN)  *  100  ~ 

#9)  UN0BLIGATED_FUNDS/CURR_APRVD_PR0GRAM  *  100 

#101  Fixed  text  ’Program  Total:’ 

#111  Total  of  all  #5  for  each  program. 

#121  Total  of  all  #6  for  each  program. 

#13)  Total  of  all  #7  for  each  program. 

#14)  ((Sum  of  OBLIGATED  FUNDS  -  Sum  of  CUM_CUR_OBL_PLAN)/ 

Sum  of  CUM_CUR_OBLjPLAN)  *  100  for  each  program. 

#15)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APRVD  PROGRAM  *  100 
for  each  program. 


#16)  Fixed  text  ’PEO  Total:’ 

#17)  Total  of  all  #5  for  each  PEO. 
#18)  Total  of  all  #6  for  each  PEO. 
#19)  Total  of  all  #7  for  each  PEO. 


#20)  ((Sum  of  OBLIGATED  FUNDS  -  Sum  of  CUM  CUR_OBL_PLAN)/ 

Sum  of  CUM_CUR_OBL  T>LAN)  *  100  for  each  PEO. 

#21)  Sum  of  UNOBLIGATED_FUNDS/Sum  of  CURR  APR VD  PROG RAM  * 
for  each  PEO. 


FORMAT:  MFE291 

(LJ  =  Left  Justified,  RJ  =  Right  Justified) 

The  only  calculated  fields  are  those  listed  above  and  they  will  appear  as  follows. 

Calculations  #l-#9  will  appear  vertically  starting  on  line  1. 

U  Coi  1-3  =  #1 
U  Col  5-11  =  #2 
U  Col  13-18  =  #3 
U  Col  20-42  =  #4  (Trunc) 

RJ  Col  44-50  =  #5  (Using  [9,999.9]  format) 

RJ  Col  52-58  =  #6  (Using  [9,999.9]  format) 

RJ  Col  60-66  =  #7  (Using  [9,999.9]  format) 

RJ  Col  68-72  =  #8  (Using  [999.9]  format) 

RJ  Col  74-78  =  #9  (Using  [999.9]  format) 


Calculations  #10-#  15  will  appear  vertically  after  each  program  break. 

LJ  Col  24-37  =  #  10  (Fixed  text  ’Program  Total:’) 

RJ  Col  44-50  =  #11  (Using  [999,999]  format) 

RJ  Col  52-58  =  #12  (Using  [999,999]  format) 

RJ  Col  60-66  =  #  13  (Using  [999,999]  format) 
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X 00700 

Clear  Lane  Marking  Syst 

.9 

.4 

.0 

55.6 

.0 

23 

Prograa  Total: 

1,129 

827 

12 

26.8 

1.4 

24 

25 

PEO  Total: 

1,129 

827 

12 

26.8 

1.4 

26 

27 

AV 

AH  IP 

AA0961 

ARMY  HELICOPTER  IMPROVE 

28 

AV 

AH  IP 

AZ2200 

ARMY  HELICOPTER  IMPROVE 

168.6 

149.4 

17.1 

11.4 

11.4 

29 

Prograa  Total: 

169 

149 

17 

11.4 

11.4 

30 

31 

AV 

APACHE 

A 06605 

AH-64 

32 

AV 

APACHE 

A09000 

CMS 

33 

AV 

APACHE 

AA0025 

0MPE 

34 

AV 

APACHE 

AA0951 

INITIAL  SPARES  (AH-64) 

35 

AV 

APACHE 

AA0968 

INITIAL  SPARES  (HFL) 

36 

AV 

APACHE 

AA6605 

AH-64  MOO 

3.2 

.3 

.0 

90.6 

.0 

37 

AV 

APACHE 

AA6610 

CMS  MOD 

38 

Program  Total: 

3 

0 

0 

90.6 

.0 

39 

40 

AV 

BL-HAUK 

>05002 

UH-60A  (BLACK  HAUK)  (MY 

41 

AV 

BL-HAUK 

A09400 

UH-60  Flight  Simulator 

42 

AV 

BL-HAUK 

AA0005 

UH-60  BLACK  HAUK  (MYP) 

43 

AV 

BL-HAUK 

AA0490 

UH-60  Mods 

44 

AV 

BL-HAUK 

AA0492 

UH-60A  (BLACK  HAUK)  Mod 

45 

AV 

BL-HAUK 

AA0952 

UH-60A  INITIAL  SPARES 

46 

AV 

BL-HAUK 

UE121G 

UH-60  P3I 

47 

Program  Total: 

48 

49 

AV 

CHINOOK 

AA0250 

CH-47  Cargo  Helicopter 

50 

AV 

CHINOOK 

AA0251 

CH-47  Flight  Simulator 

51 

AV 

CHINOOK 

AA0252 

CH-47  Cargo  Helicopter 

52 

AV 

CHINOOK 

AA096U 

Initial  Spares  for  CH-4 

53 

Program  Total: 

54 

55 

PEO  Total: 

172 

150 

17 

12.9 

11.4 

56 

MFE261 .PRN 


Thursday,  October  11,  1990  11:19  an 


57 

C&C  ADOS 

BA9620 

Initial  Spares 

58 

CiC  ADOS 

BA970A 

COMSEC  Spares 

59 

C&C  ADOS 

BL5264 

KG-58,  KOK-12 

3.0 

2.8 

.8 

6.7 

28.6 

60 

C&C  ADOS 

BUI 400 

Army  Data  Distribution 

71.2 

26.5 

9.7 

62.8 

36.6 

61 

C&C  ADOS 

T01600 

KGV-8 

62 

C&C  ADOS 

T 06200 

KG -87 

.3 

.0 

.0 

100.0 

.0 

63 

C&C  ADOS 

T 06300 

KOK-13 

.0 

.0 

.0 

.0 

.0 

64 

C&C 

ADOS 

T 064 00 

KGV-13 

8.6 

.0 

.0 

100.0 

.0 

65 

Program  Total: 

83 

29 

11 

64.9 

36.0 

66 

67 

PEO  Total: 

83 

29 

11 

64.9 

36.0 

68 

69 

COM 

MSE 

BB  161 

MOBILE  SUBSCRIBER  EQUIP 

70 

Program  Total: 

71 

72 

COM 

SINCGAR 

AA0974 

AIRBORNE  SPARES 

73 

COM 

SINCGAR 

AZ3500 

AIRBORNE  SINCGARS 

74 

COM 

SINCGAR 

B00500 

GROUND  SINCGARS 

75 

COM 

SINCGAR 

B00508 

AIRBORNE  SINCGARS 

76 

COM 

SINCGAR 

BA9520 

GROUND  SPARES 

77 

COM 

SINCGAR 

BU0006 

SINCGARS  FAMILY 

228.9 

218.2 

43.0 

4.7 

19.7 

78 

COM 

SINCGAR 

T99500 

KGV-10 

5.7 

5.7 

.0 

.0 

.0 

79 

COM 

SINCGAR 

Z16800 

BECS 

1.9 

1.6 

.7 

15.8 

43.8 

80 

Program  Total: 

236 

226 

44 

4.6 

19.4 

81 

82 

PEO  Total: 

236 

226 

44 

4.6 

19.4 

83 

84 

CS 

FMTV 

015500 

FAMILY  OF  MEDIUM  TACTIC 

85 

CS 

FMTV 

DA035A 

INITIAL  SPARES 

86 

Program  Total: 

87 

88 

CS 

PIS 

DA035A 

Initial  Spares  (FH1V) 

89 

Program  Total: 

90 

91 

P^G  Total: 

92 

93 

FS 

INSIGHT 

AA0974 

AIRBORNE  SPARES 

94 

FS 

INSIGHT 

AZ3500 

AIRBORNE  INSIGHT 

95 

FS 

INSIGHT 

B00500 

GROUND  INSIGHT 

96 

FS 

INSIGHT 

B00508 

AIRBORNE  INSIGHT 

97 

FS 

INSIGHT 

BA9520 

GROUND  SPARES 

98 

FS 

INSIGHT 

T99500 

KGV-10 

5.7 

5.7 

.0 

.0 

.0 

99 

FS 

INSIGHT 

Z 16800 

BECS 

1.9 

1.6 

.7 

15.8 

43.8 

100 

Program  Total: 

8 

7 

1 

3.9 

9.6 

101 

102 

FS 

TACMS 

C98500 

Missile  Procurement, Arm 

103 

FS 

TACMS 

CA0261 

Missile  Procurement, Arm 

104 

Program  Total: 

105 

106 

PEO  Total: 

8 

7 

1 

3.9 

9.6 

107 

108  MSO  AMRAAM  2206  AMRAAM  -  MARINE  CORPS 

109  MSO  AMRAAM  MAMRAO  AMRAAM 

110  Program  Total: 

111 

112  PEO  Total: 


MFE262.PRN 


Thursday,  October  11,  1990  11:19  an 


1 

AO 

FAADLOS 

CJ8001 

INITIAL  SPARES 

2 

AO 

FAADLOS 

HO 1600 

AIR  DEFENSE  SYS  HEAVY 

3 

/ 

Progran  Total: 

H 

5 

AO 

FOG-N 

CA0263 

INITIAL  SPARES 

6 

AO 

FOG-M 

HO3100 

NLOS  SYTEM 

7 

8 

9 

Progran  Total: 

AO 

PATRIOT 

C49100 

PATRIOT  PROCUREMENT 

818.0 

804.3 

320.0 

1.7 

39.8 

10 

AO 

PATRIOT 

C50700 

PATRIOT  MOO.  KITS 

36.8 

35.1 

6.2 

4.6 

17.7 

11 

AO 

PATRIOT 

CA0252 

SPARES 

12 

Progran  Total: 

855 

839 

326 

1.8 

38.9 

13 

14 

PEO  Total: 

855 

839 

326 

1.8 

38.9 

15 

16 

ASM  ABRAMS 

910000 

Main  Battle  Tank 

17 

ASM  ABRAMS 

G82916 

Abrams  Tank  Series  Roll 

1,376.3 

i,235.4 

618.4 

10.2 

50.1 

18 

ASM 

ABRAMS 

GAO 167 

M1A1  Initial  Spares 

19 

ASM  ABRAMS 

GA0700 

Tank,  Ml  Series  (Mod) 

60.2 

49.0 

4.3 

18.6 

8.8 

20 

ASM  ABRAMS 

GB1300 

Ml  Series  Tank  Training 

8.7 

.2 

.0 

97.7 

.0 

21 

ASM 

ABRAMS 

R06102 

Mine  Plow  (Blade) 

22 

ASM  ABRAMS 

X00600 

Mine  Clearing  Rollers 

2.4 

2.4 

.3 

.0 

12.5 

23 

ASM  ABRAMS 

X00700 

Clear  Lane  Marking  Syst 

1.1 

1.0 

.7 

9.1 

70.0 

24 

Program  Total: 

1,449 

1,288 

624 

11.1 

48.4 

25 

26 

PEO  Total: 

1,449 

1,288 

624 

11.1 

48.4 

27 

28 

AV 

AH  IP 

AA0961 

ARMY  HELICOPTER  IMPROVE 

29 

AV 

AHIP 

AZ2200 

ARMY  HELICOPTER  IMPROVE 

138.4 

132.7 

61.9 

4.1 

46.6 

30 

Program  Total: 

138 

133 

62 

4.1 

46.6 

31 

32 

AV 

APACHE 

A 06605 

AH-64 

33 

AV 

APACHE 

A09000 

CMS 

34 

AV 

APACHE 

AA0025 

DMPE 

35 

AV 

APACHE 

AA0951 

INITIAL  SPARES  (AH-64) 

36 

AV 

APACHE 

AA0968 

INITIAL  SPARES  (HFL) 

37 

AV 

APACHE 

AA6605 

AH-64  MOO 

66.6 

46.8 

15.9 

29.7 

34.0 

38 

AV 

APACHE 

AA6610 

CMS  MOO 

39 

Program  Total: 

67 

47 

16 

29.7 

34.0 

40 

41 

AV 

BL-HAUK 

A05002 

UH-60A  (BLACK  HAUK)  (MY 

42 

AV 

BL-HAUK 

A 09400 

UH-60  Flight  Simulator 

43 

AV 

BL-HAUK 

AA0005 

UH-60  BLACK  HAUK  (HYP) 

44 

AV 

BL-HAUK 

AA0490 

UH-60  Mods 

45 

AV 

BL-HAUK 

AA0492 

UH-60A  (BLACK  HAUK)  Mod 

46 

AV 

BL-HAUK 

AA0952 

UH-60A  INITIAL  SPARES 

47 

AV 

BL-HAUK 

UE121G 

UH-60  P3I 

48 

Program  Total: 

49 

50 

AV 

CHINOOK 

AA0250 

CH-47  Cargo  Helicopter 

51 

AV 

CHINOOK 

AA0251 

CH-47  Flight  Simulator 

52 

AV 

CHINOOK 

AA0252 

CH-47  Cargo  Helicopter 

53 

AV 

CHINOOK 

AA0960 

Initial  Spares  for  CH-4 

54 

Program  Total: 

55 

56 

PEO  Total: 

205 

180 

78 

12.4 

43.4 

• 

1FE262.PRN 

Thursday, 

October 

11,  1990  11: 

19  am 

Page  2 

57 

• 

58 

C&C  ADOS 

BA9620  Initial  Spares 

59 

CtC  ADOS 

BA970A  COMSEC  Spares 

60 

CtC  ADOS 

BL5264  KG -58,  KOK-12 

3.1 

2.2 

1.9 

29.0 

86.4 

61 

CtC  ADOS 

BUI 400  Anay  Oata  Distribution 

11O.0 

107.3 

> 

•  w 

2.5 

.2 

62 

CtC  ADOS 

T01600  KGV-8 

63 

CtC  ADDS 

T 03200  KGV-11 

.6 

.5 

.0 

16.7 

.0 

• 

64 

CtC  ADOS 

T 06200  ICG-87 

.0 

.0 

.0 

.0 

.0 

65 

CtC  ADOS 

T 06300  KOK-13 

.0 

.0 

.0 

.0 

.0 

66 

CtC  ADDS 

T 06400  KGV-13 

8.8 

3.4 

.0 

61.4 

.0 

67 

Program  Total: 

122 

113 

2 

7.4 

1.9 

68 

69 

PEO  Total: 

122 

113 

2 

7.4 

1.9 

• 

70 

71 

COM  MSE 

BB  161  MOBILE  SUBSCRIBER  EQUIP 

72 

Program  Total: 

73 

74 

COM  SINCGAR 

AA0974  AIRBORNE  SPARES 

75 

COM  SINCGAR  AZ3500  AIRBORNE  SINCGARS 

• 

76 

COM  SINCGAR 

B00500  GROUND  SINCGARS 

77 

COM  SINCGAR 

B00508  AIRBORNE  SINCGARS 

78 

COM  SINCGAR 

B45500  OE-254  ANTENNA 

4.9 

4.9 

4.8 

.0 

98.0 

79 

COM  SINCGAR  BA9520  GROUND  SPARES 

80 

COM  SINCGAR 

BVI0006  SINCGARS  FAMILY 

20.1 

20.1 

17.2 

.0 

85.6 

81 

COM  SINCGAR 

T99500  KGV-10 

5.1 

5.1 

3.2 

.0 

62.7 

• 

82 

83 

Program  Total: 

30 

30 

25 

.0 

84.1 

84 

PEO  Total: 

30 

30 

25 

.0 

84.1 

85 

86 

CS  FMTV 

D 15500  FAMILY  OF  MEDIUM  TACTIC 

87 

CS  FMTV 

DA035A  INITIAL  SPARES 

• 

88 

89 

Program  Total: 

90 

CS  PIS 

DA035A  Initial  Spares  (FHTV) 

91 

Program  Total: 

92 

93 

PEO  Total: 

• 

94 

95 

FS  INSIGHT  AA0974  AIRBORNE  SPARES 

96 

FS  INSIGHT  AZ3500  AIRBORNE  INSIGHT 

97 

FS  INSIGHT 

B00500  GROUND  INSIGHT 

98 

FS  INSIGHT 

B00508  AIR80RNE  INSIGHT 

99 

FS  INSIGHT 

B45500  OE-254  ANTENNA 

4.9 

4.9 

4.8 

.0 

98.0 

• 

100 

FS  INSIGHT 

BA9520  GROUND  SPARES 

101 

FS  INSIGHT 

T 99500  KGV-10 

5.1 

5.1 

3.2 

.0 

62.7 

102 

Program  Total: 

10 

10 

8 

.0 

80.0 

103 

104 

FS  TACMS 

C98500  Missile  Procurement, Arm 

105 

FS  TACMS 

CA0261  Missile  Procurement, Arm 

106 

Program  Total: 

• 

107 

108 

PEO  Total: 

10 

10 

8 

.0 

80.0 

109 

110 

MSD  AMRAAM 

2206  AMRAAM  -  MARINE  CORPS 

111 

MSO  AMRAAM 

MAMRAO  AMRAAM 

112 

Program  Total: 

• 

MFE262.PRN 


Thursday,  October  11,  1990  11:19  aa 


Page  3 


113 

114  PEO  Total: 


MFE290.PRN 


Thursday,  October  11,  1990  11:19  am 


1 

AO 

FAADLOS  CJ8001 

INITIAL  SPARES 

2 

AO 

FAAOLOS  HOI 600 

AIR  OEFENSE  SYS  HEAVY 

3 

AO 

FAADLOS  HOI 700 

AIR  OEFENSE  SYS  HEAVY 

170.0 

.0 

.0  .0 

100.0 

4 

e 

Program  Total: 

170 

0 

0  .0 

100.0 

J 

6 

AO 

FOG-M 

CA0263 

INITIAL  SPARES 

7 

AO 

FOG-M 

H03100 

NLOS  SYTEM 

8 

o 

Program  Total: 

y 

10 

AO 

PATRIOT 

C49100 

PATRIOT  PROCUREMENT 

911.9 

742.9 

485.3  -34.7 

46.8 

11 

AO 

PATRIOT 

C50700 

PATRIOT  MOO.  KITS 

19.4 

11.7 

1.0  -91.5 

94.8 

12 

AO 

PATRIOT 

CA0252 

SPARES 

13 

Program  Total: 

931 

755 

486  -35.6 

47.8 

14 

15 

PEO  Total: 

1,101 

755 

486  -35.6 

55.8 

16 

17 

ASM 

ABRAMS 

910000 

Main  Battle  Tank 

18 

ASM  ABRAMS 

GA0167 

M1A1  Initial  Spares 

19 

ASM  ABRAMS 

GA0700 

Tank,  Ml  Series  (Mod) 

36.2 

.0 

.0  .0 

100.0 

20 

ASM  ABRAMS 

G81300 

Ml  Series  Tank  Training 

12.9 

.2 

.0-100.0 

100. 0 

21 

ASM  ABRAMS 

R06102 

Mine  Plow  (Blade) 

22 

Program  Total: 

49 

0 

0-100.0 

100.0 

23 

24 

PEO  Total: 

49 

0 

0-100.0 

100.0 

25 

26 

AV 

AHIP 

AA0961 

ARMY  HELICOPTER  IMPROVE 

27 

AV 

AHIP 

A22200 

ARMY  HELICOPTER  IMPROVE 

192.5 

.0 

.2  .0 

99.9 

28 

Program  Total: 

193 

0 

0  .0 

99.9 

29 

30 

AV 

APACHE 

A 06605 

AH-64 

31 

AV 

APACHE 

A09000 

CMS 

32 

AV 

APACHE 

AA0025 

DMPE 

33 

AV 

APACHE 

AA0951 

INITIAL  SPARES  (AH-64) 

34 

AV 

APACHE 

AA0968 

INITIAL  SPARES  (HFL) 

35 

AV 

APACHE 

AA6605 

AH-64  MOO 

20.7 

.0 

.0  .0 

100.0 

36 

AV 

APACHE 

AA6610 

CMS  MOO 

37 

Program  Total: 

21 

0 

0  .0 

100.0 

38 

39 

AV 

BL-HAUK 

A05002 

UH-60A  (BLACK  HAUK)  (MY 

40 

AV 

BL-HAUK  A09400 

UH-60  Flight  Simulator 

41 

AV 

BL-HAUK  AA0005 

UH-60  BLACK  HAUK  (MYP) 

42 

AV 

BL-HAUK  AA0490 

UH-60  Mods 

43 

AV 

BL-HAUK  AA0492 

UH-60A  (BLACK  HAUK)  Mod 

44 

AV 

BL-HAUK  AA0952 

UH-60A  INITIAL  SPARES 

45 

AV 

BL-HAUK  UE121G 

UH-60  P3I 

46 

Program  Total: 

47 

48 

AV 

CHINOOK  AA0250 

CH-47  Cargo  Helicopter 

49 

AV 

CHINOOK  AA0251 

CH-47  Flight  Simulator 

50 

AV 

CHINOOK  AA0252 

CH-47  Cargo  Helicopter 

51 

AV 

CHINOOK  AA0960 

Initial  Spares  for  CH-4 

52 

Program  Total: 

53 

54 

PEO  Total: 

213 

0 

0  .0 

99.9 

55 

56 

C&C  ADDS 

BA9620 

Initial  Spares 

HFE290.PRN 


Thursday,  October  11,  1990  11:19  am 


57 

CtC  ADOS 

BA970A  COMSEC  Spares 

58 

CtC  ADOS 

BL5264  ICG-58,  KOK-12 

6.1 

2.9 

3.4  17.2 

44.3 

59 

etc  ADOS 

BUI 400  Anay  Oata  Distribution 

.0 

.0 

.0  .0 

.0 

60 

CtC  ADDS 

T01600  KGV-8 

61 

CtC  ADOS 

T 03200  KGV-11 

1.2 

1.2 

.0-100.0 

100.0 

62 

Program  Total: 

7 

4 

3  -17.1 

53.4 

63 

64 

PEO  Total: 

7 

4 

3  -17.1 

53.4 

65 

66 

COM  NSE 

BB  161  MOBILE  SUBSCRIBER  EQUIP 

67 

Program  Total: 

68 

69 

COM 

SINCGAR 

AA0974  AIRBORNE  SPARES 

70 

COM 

SINCGAR 

A23500  AIRBORNE  SINCGARS 

71 

COM 

SINCGAR 

B00500  GROUND  SINCGARS 

72 

COM 

SINCGAR 

B00508  AIRBORNE  SINCGARS 

73 

COM 

SINCGAR 

BA9520  GROUND  SPARES 

74 

COM 

SINCGAR 

BU0006  SINCGARS  FAMILY 

82.0 

27.4 

11.3  -58.8 

86.2 

75 

COM 

SINCGAR 

Z16800  BECS 

20.0 

.4 

.1  -75.0 

99.5 

76 

Program  Total: 

102 

28 

11  -59.0 

88.8 

77 

78 

PEO  Total: 

102 

28 

11  -59.0 

88.8 

79 

80 

CS 

FMTV 

D15500  FAMILY  OF  MEDIUM  TACTIC 

81 

CS 

FMTV 

DA035A  INITIAL  SPARES 

82 

Program  Total: 

83 

84 

CS 

PLS 

D16500  Palletized  Load  System 

43.3 

.1 

.0-100.0 

100.0 

85 

CS 

PIS 

DA035A  Initial  Spares  (FHTV) 

86 

Program  Total: 

43 

0 

0-100.0 

100.0 

87 

88 

PEO  Total: 

43 

0 

0-100.0 

100.0 

89 

90 

FS 

INSIGHT 

AA0974  AIRBORNE  SPARES 

91 

FS 

INSIGHT 

AZ3500  AIRBORNE  INSIGHT 

92 

FS 

INSIGHT 

B00500  GROUND  INSIGHT 

93 

FS 

INSIGHT 

B00508  AIRBORNE  INSIGHT 

94 

FS 

INSIGHT 

BA9520  GROUND  SPARES 

95 

FS 

INSIGHT 

Z16800  BECS 

20.0 

.4 

.1  -75.0 

99.5 

96 

Program  Total: 

20 

0 

0  -75.0 

99.5 

97 

98 

FS 

TACMS 

C98500  Missile  Procurement, Arm 

99 

FS 

TACMS 

CA0261  Missile  Procurement, Arm 

100 

Program  Total: 

101 

102 

PEO  Total: 

20 

0 

0  -75.0 

99.5 

103 

104 

MSO 

AMRAAM 

2206  AMRAAM  -  MARINE  CORPS 

105 

MSO 

AMRAAM 

MAMRAO  AMRAAM 

106 

Program  Total: 

107 

108 

PEO  Total: 

MFE291.PRN 


Thursday,  October  11,  1990  11:19  am 


1 

AD 

FAAOLOS  CJ8001 

INITIAL  SPARES 

a 

AO 

FAAOLOS  HOI 600 

AIR  DEFENSE  SYS  HEAVY 

3 

AO 

FAAOLOS 

HOI  700 

AIR  DEFENSE  SYS  HEAVY 

85.5 

31.1 

58.4 

87.8 

31.7 

4 

s 

Program  Total: 

86 

31 

58 

87.8 

31.7 

J 

6 

AO 

F06-M 

CA0263 

INITIAL  SPARES 

7 

AO 

FOG-M 

HO310O 

NLOS  SYTEM 

8 

o 

Program  Total: 

10 

AO 

PATRIOT 

C49100 

PATRIOT  PROCUREMENT 

779.4 

654.6 

761.3 

16.3 

2.3 

ii 

AO 

PATRIOT 

C50700 

PATRIOT  MOO.  KITS 

43.7 

43.6 

41.7 

-4.4 

4.6 

12 

AO 

PATRIOT 

CA0252 

SPARES 

13 

Program  Total: 

823 

698 

803 

15.0 

2.5 

14 

15 

PEO  Total: 

909 

729 

861 

18.1 

5.2 

16 

17 

ASM 

ABRAMS 

910000 

Main  Battle  Tank 

18 

ASM 

ABRAMS 

G82916 

Abrams  Tank  Series  Roll 

1,125.9 

147.8 

823.9  457.4 

26.8 

19 

ASM 

ABRAMS 

GA0167 

H1A1  Initial  Spares 

20 

ASM  ABRAMS 

R06102 

Mine  Plow  (Blade) 

21 

ASM 

ABRAMS 

X00600 

Mine  Clearing  Rollers 

2.6 

.0 

2.3 

.0 

11.5 

22 

ASM  ABRAMS 

X00700 

Clear  Lane  Marking  Syst 

.9 

.0 

.4 

.0 

55.6 

23 

Program  Total : 

1,129 

148 

827  459.3 

26.8 

24 

25 

PEO  Total: 

1,129 

148 

827  459.3 

26.8 

26 

27 

AV 

AH1P 

AA0961 

ARMY  HELICOPTER  IMPROVE 

28 

AV 

AHIP 

AZ2200 

ARMY  HELICOPTER  IMPROVE 

168.6 

2.0 

149.4  ###.# 

11.4 

29 

Program  Total: 

169 

2 

149  ###.# 

11.4 

30 

31 

AV 

APACHE 

A 06605 

AH-64 

32 

AV 

APACHE 

A09000 

CMS 

33 

AV 

APACHE 

AA0025 

DMPE 

34 

AV 

APACHE 

AA0951 

INITIAL  SPARES  (AH-64) 

35 

AV 

APACHE 

AA0968 

INITIAL  SPARES  (HFL) 

36 

AV 

APACHE 

AA6605 

AH-64  MOO 

3.2 

12.7 

.3 

-97.6 

90.6 

37 

AV 

APACHE 

AA6610 

CMS  MOO 

38 

Program  Total: 

3 

13 

0 

-97.6 

90.6 

39 

40 

AV 

BL-HAUK 

A05002 

UH-60A  (BLACK  HAUK)  (MY 

41 

AV 

BL-HAUK  A09400 

UH-60  Flight  Simulator 

42 

AV 

BL-HAUK  AA0005 

UH-60  BLACK  HAUK  (HYP) 

43 

AV 

BL-HAUK  AA0490 

UH-60  Mods 

44 

AV 

BL-HAUK  AA0492 

UH-60A  (BUCK  HAUK)  Mod 

45 

AV 

BL-HAUK  AA0952 

UH-60A  INITIAL  SPARES 

46 

AV 

BL-HAUK  UE121G 

UH-60  P3I 

47 

Program  Total: 

48 

49 

AV 

CHINOOK  AA0250 

CH-47  Cargo  Helicopter 

50 

AV 

CHINOOK  AA0251 

CH-47  Flight  Simulator 

51 

AV 

CHINOOK  AA0252 

CH-47  Cargo  Helicopter 

52 

AV 

CHINOOK  AA0960 

Initial  Spares  for  CH-4 

53 

Program  Total: 

54 

55 

PEO  Total: 

172 

15 

150  918.4 

12.9 

56 

MFE291.PRN  Thursday,  October  11,  1990  11:19  am 


57 

CSC  ADOS 

BA9620  Initial  Spares 

58 

CtC  ADOS 

BA970A  COMSEC  Spares 

59 

CtC  ADOS 

BL5264  ICG -58,  KOK-12 

3.0 

1.6 

2.8 

75.0 

6.7 

60 

CtC  ADOS 

BUI 400  Army  Oata  Distribution 

71.2 

11.9 

26.5 

122.7 

62.8 

61 

CtC  ADOS 

T01600  KGV-8 

62 

CtC  ADOS 

T 06200  ICG-87 

.3 

.0 

.0 

.0 

100.0 

63 

CtC  ADOS 

T 06300  KOK-13 

.0 

.0 

.0 

.0 

.0 

64 

CtC  ADOS 

T 06400  KGV-13 

8.6 

.0 

.0 

.0 

100.0 

65 

Program  Total: 

83 

13 

29 

116.3 

64.9 

66 

67 

PEO  Total: 

83 

13 

29 

116.3 

64.9 

68 

69 

COM  MSE 

BB  161  MOBILE  SUBSCRIBER  EQUIP 

70 

Program  Total: 

71 

72 

COM  SINCGAR  AA0974  AIRBORNE  SPARES 

73 

COM  SINCGAR  AZ3500  AIRBORNE  SINCGARS 

74 

COM  SINCGAR 

B00500  GROUND  SINCGARS 

75 

COM  SINCGAR 

B00508  AIRBORNE  SINCGARS 

76 

COM  SINCGAR 

BA9520  GROUND  SPARES 

77 

COM  SINCGAR 

BW0006  SINCGARS  FAMILY 

228.9 

177.2 

218.2 

23.1 

4.7 

78 

COM  SINCGAR 

T 99500  KGV-10 

5.7 

5.7 

5.7 

.0 

.0 

79 

COM  SINCGAR  216800  BECS 

1.9 

.5 

1.6  220.0 

15.8 

80 

Program  Total: 

236 

183 

226 

22.9 

4.6 

81 

, , 

82 

PEO  Total: 

236 

183 

226 

22.9 

4.6 

83 

84  CS  FMTV  D15500  FAHILY  OF  MEDIUM  TACTIC 

85  CS  FMTV  DA035A  INITIAL  SPARES 

86  Program  Total: 

87 

88  CS  PIS  DA035A  Initial  Spares  (FHTV) 

89  Program  Total: 

90 

91  PEO  Total: 

92 

93  FS  INSIGHT  AA0974  AIRBORNE  SPARES 

94  FS  INSIGHT  A23500  AIRBORNE  INSIGHT 

95  FS  INSIGHT  B00500  GROUND  INSIGHT 

96  FS  INSIGHT  B00508  AIRBORNE  INSIGHT 

97  FS  INSIGHT  BA9520  GROUND  SPARES 

98  FS  INSIGHT  T99500  KGV-10  5.7  5.7  5.7  .0  .0- 

99  FS  INSIGHT  Z16800  BECS  1.9  .5  1.6  220.0  15.8 

100  Program  Total:  867  17.7  3.9 

101 

102  FS  TACMS  C98500  Missile  Procurement, Arm 

103  FS  TACMS  CA0261  Missile  Procurement, Arm 

104  Program  Total: 

105 

106  PEO  Total:  8  6  7  17.7  3.9 

107 

10S  KSS  mwmAM  2206  AXRAAM  -  MARINE  CORPS 

109  MSD  AMRAAM  MAMS  AO  AMRAAM 

110  Program  Total: 

111 
112 


PEO  Total 


MFE292.PRN 


Thursday,  October  11,  1990  11:19  a* 


1 

AO 

FAAOLOS  CJ8001 

INITIAL  SPARES 

2 

AO 

FAAOLOS 

HO 1600 

AIR  DEFENSE  SYS  HEAVY 

3 

L 

Prograa  Total: 

*» 

5 

AO 

FOG-M 

CA0263 

INITIAL  SPARES 

6 

AO 

FOG-M 

H03100 

NLOS  SYTEM 

7 

o 

Prograa  Total: 

O 

9 

AO 

PATRIOT 

C49100 

PATRIOT  PROCUREMENT 

818.0 

141.0 

804.3  470.4 

1.7 

10 

AO 

PATRIOT 

C50700 

PATRIOT  MOO.  KITS 

36.8 

1.0 

35.1 

#«#.# 

4.6 

11 

AO 

PATRIOT 

CA0252 

SPARES 

12 

Prograa  Total: 

855 

142 

839  490.7 

1.8 

13 

u 

PEO  Total: 

855 

142 

839  490.7 

1.8 

15 

16 

ASM 

ABRAMS 

910000 

Main  Battle  Tank 

17 

ASM 

ABRAMS 

G82916 

Abrams  Tank  Series  Roll 

1,376.3 

221.7 

1,235.4 

457.2 

10.2 

IS 

ASM 

ABRAMS 

GAO 167 

M1A1  Initial  Spares 

19 

ASM 

ABRAMS 

GA0700 

Tank,  Ml  Series  (Mod) 

60.2 

43.3 

49.0 

13.2 

18.6 

20 

ASM 

ABRAMS 

GB1300 

Ml  Series  Tank  Training 

8.7 

4.6 

.2 

‘95.7 

97.7 

21 

ASM 

ABRAMS 

R06102 

Mine  Plow  (Blade) 

22 

ASM 

ABRAMS 

X 00600 

Mine  Clearing  Rollers 

2.4 

2.8 

2.4 

-14.3 

.0 

23 

ASM 

ABRAMS 

X00700 

Clear  Lane  Marking  Syst 

1.1 

.6 

1.0 

66.7 

9.1 

24 

Program  Total: 

1,449 

273 

1,288  371.8 

11.1 

25 

26 

PEO  Total: 

1,449 

273 

1,288  371.8 

11.1 

27 

28 

AV 

AH  IP 

AA0961 

ARMY  HELICOPTER  IMPROVE 

29 

AV 

AHIP 

AZ2200 

ARMY  HELICOPTER  IMPROVE 

138.4 

122.4 

132.7 

8.4 

4.1 

30 

Program  Total: 

138 

122 

133 

8.4 

4.1 

31 

32 

AV 

APACHE 

A 06605 

AH-64 

33 

AV 

APACHE 

A09000 

CMS 

34 

AV 

APACHE 

AA0025 

DMPE 

35 

AV 

APACHE 

AA0951 

INITIAL  SPARES  (AH-64) 

36 

AV 

APACHE 

AA0968 

INITIAL  SPARES  (HFL) 

37 

AV 

APACHE 

AA6605 

AH-64  MOO 

66.6 

35.1 

46.8 

33.3 

29.7 

38 

AV 

APACHE 

AA6610 

CMS  MOO 

39 

Program  Total: 

67 

35 

47 

33.3 

29.7 

40 

41 

AV 

81 -HAWK 

A05002 

UH-60A  (BLACK  HAWK)  (MY 

42 

AV 

BL-HAUK  A09400 

UH-60  Flight  Simulator 

43 

AV 

BL-HAWK  AA0005 

UH-60  BLACK  HAUK  (MYP) 

44 

AV 

BL-HAUK  AA0490 

UH-60  Mods 

45 

AV 

BL-HAUK  AA0492 

UH-60A  (BLACK  HAUK)  Mod 

46 

AV 

BL-HAUK  AA0952 

UH-60A  INITIAL  SPARES 

47 

AV 

BL-HAUK  UE121G 

UH-60  P3I 

48 

Program  Total: 

49 

50 

AV 

CHINOOK  AA0250 

CH-47  Cargo  Helicopter 

51 

AV 

CHINOOK  AA0251 

CH-47  Flight  Simulator 

52 

AV 

CHINOOK  AA0252 

CH-47  Cargo  Helicopter 

53 

AV 

CHINOOK  AA0960 

Initial  Spares  for  CH-4 

54 

Program  Total: 

55 

56 

PEO  Total: 

205 

158 

180 

14.0 

12.4 

MFE292.PRN 


Thursday,  October  11,  1990  11:19  aa 


57 

58 

CtC  ADOS 

BA9620  Initial  Spares 

59 

CiC  ADOS 

BA970A  COMSEC  Spares 

60 

CtC  ADOS 

BL5264  KG-58,  KOK-12 

3.1 

2.5 

2.2 

-12.0 

29.0 

61 

CtC  ADOS 

BU1400  Aney  Oata  Distribution 

110.0 

118.0 

107.3 

-9.1 

2.5 

62 

CtC  ADOS 

T01600  KGV-8 

63 

CtC  ADOS 

T 03200  KGV-11 

.6 

.0 

.5 

.0 

16.7 

64 

CtC  ADOS 

T 06200  KG-87 

.0 

.0 

.0 

.0 

.0 

65 

CtC  ADDS 

T 06300  KOK-13 

.0 

.0 

.0 

.0 

.0 

66 

CtC  ADDS 

T 06400  KGV-13 

8.8 

3.4 

3.4 

.0 

61.4 

67 

Prograai  Total: 

122 

124 

113 

-8.5 

7.4 

68 

69 

PEO  Total: 

122 

124 

113 

-8.5 

7.4 

70 

71 

COM  MSE 

B8  161  MOBILE  SUBSCRIBER  EQUIP 

72 

Prograai  Total: 

73 

74 

COM  SINCGAR 

AA0974  AIRBORNE  SPARES 

75 

COM  SINCGAR 

AZ3500  AIRBORNE  SINCGARS 

76 

COM  SINCGAR 

B00500  GROUND  SINCGARS 

77 

COM  SINCGAR 

B00508  AIRBORNE  SINCGARS 

78 

COM  SINCGAR 

B45500  OE-254  ANTENNA 

4.9 

4.9 

4.9 

.0 

.0 

79 

COM  SINCGAR 

BA9520  GROUND  SPARES 

80 

COM  SINCGAR 

BU0006  SINCGARS  FAMILY 

20.1 

20.1 

20.1 

.0 

.0 

81 

COM  SINCGAR 

T 995 00  KGV-10 

5.1 

5.1 

5.1 

.0 

.0 

82 

Program  Total: 

30 

30 

30 

.0 

.0 

83 

84 

PEO  Total: 

30 

30 

30 

.0 

.0 

85 

86 

CS  FMTV 

D15500  FAMILY  OF  MEDIUM  TACTIC 

87 

CS  FMTV 

DA035A  INITIAL  SPARES 

88 

Program  Total: 

89 

90 

CS  PIS 

DA035A  Initial  Spares  (FHTV) 

91 

Program  Total : 

92 

93 

PEO  Total: 

94 

95 

FS  INSIGHT 

AA0974  AIRBORNE  SPARES 

96 

FS  INSIGHT 

AZ3500  AIRBORNE  INSIGHT 

97 

FS  INSIGHT 

8005 00  GROUND  INSIGHT 

98 

FS  INSIGHT 

B00508  AIRBORNE  INSIGHT 

99 

FS  INSIGHT 

B45500  OE-254  ANTENNA 

4.9 

4.9 

4.9 

.0 

.0 

100 

FS  INSIGHT 

BA 95 20  GROUND  SPARES 

101 

FS  INSIGHT 

T99500  KGV-10 

5.1 

5.1 

5.1 

.0 

.0 

102 

Program  Total: 

10 

10 

10 

.0 

.0 

103 

104 

FS  TACMS 

C98500  Missile  Procurement, Arm 

105 

FS  TACMS 

CA0261  Missile  Procurement, Arm 

106 

Program  Total: 

107 

108 

PEO  Total: 

10 

10 

10 

.0 

.0 

109 

110 

MSO  AMRAAM 

2206  AMRAAM  -  MARINE  CORPS 

111 

MSO  AMRAAM 

MAMRAO  AMRAAM 

112 

Program  Total: 

1FE292.PRM 
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> 


113 

114 


PEO  Total: 


MFE360.PRN 


Thursday,  October  11,  1990  11:19  an 


Page  1 


1 

2 

3  FY90  Program  Dollars  by  PEO 

4 

5  MFE360 

6  Procurement  Execution  Suaaary  by  PEO  Class  III] 

7  FY90  Procurement  Execution  as  of  Jun  90 

8 
9 


10 

PEO 

AD 

ASM 

AV 

c&c 

COM 

cs 

FS 

MSD 

11 

Cong 

1101 

49 

213 

7 

100 

43 

20 

0 

0 

0 

0 

0 

12 

Apvd  1101 

49 

213 

7 

102 

43 

20 

0 

0 

0 

0 

0 

13 

0b  PI 

755 

0 

0 

4 

28 

0 

0 

0 

0 

0 

0 

0 

14 

Ob  Ac 

486 

0 

0 

3 

11 

0 

0 

0 

0 

0 

0 

0 

15 

Oisb 

29 

0 

0 

0 

2 

0 

0 

0 

0 

0 

0 

0 

16 

Unob 

615 

49 

213 

4 

91 

43 

20 

0 

0 

0 

0 

0 

17 

X  Unob 

56X  100X  100X 

57X 

89X 

100X 

100X 

ox 

ox 

ox 

ox 

ox 

18 

X  Liqd 

6X 

OX 

OX 

ox 

18X 

OX 

ox 

ox 

ox 

ox 

ox 

ox 

19 

X  Oblg 

44X 

OX 

ox 

43X 

11X 

OX 

ox 

ox 

ox 

ox 

ox 

ox 

20 

X  Unob 

56X 

100X 

100X 

57X 

89X 

100X  100X 

ox 

ox 

ox 

ox 

ox 

21 

X  Liqd 

6X 

OX 

ox 

OX 

18X 

OX 

ox 

ox 

ox 

ox 

ox 

ox 

22 

X  Unlq 

94X 

OX 

ox 

100X 

82X 

OX 

ox 

ox 

ox 

ox 

ox 

ox 

23 

Color 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

24 

Color 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

25 

Color 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

26 

27 

28 

29 

30  HFE361 

31  Procurement  Program  Dollar  Sumnary  Class  CU] 

32  by  PEO 

33  FY90  Procurement  Execution  as  of  Jun  90 

34 

35  HFE362 

36  Procurement  Obligated  Dollar  Suimery  Class  [U] 

37  by  PEO 

38  FY90  Procurement  Execution  as  of  Jun  90 

39 

40  MFE363 

41  Procurement  Percent  Obligated  Suonary  Class  nil 

42  by  PEO 

43  FY90  Procurement  Execution  as  of  Jun  90 

44 

45  MFE364 

46  Procurement  Percent  Liquidated  Sunnary  Class  [U] 

47  by  PEO 

48  FY90  Procurement  Execution  as  of  Jun  90 


1FE370.PRM 
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1 

2 

3  FY89  Program  Dollars  by  PEO 

4 

5  NFE370 

6  Procurement  Execution  Suemary  by  PEO  Class  CU] 

7  FY90  Procurement  Execution  as  of  Jun  90 

8 
9 


10 

PEO 

AD 

ASM 

AV 

C&C 

COM 

CS 

FS 

MSD 

11 

Cong 

906  1129 

175 

84 

260 

0 

22 

0 

0 

0 

0 

0 

12 

Apvd 

909  1129 

172 

83 

236 

0 

8 

0 

0 

0 

0 

0 

13 

0b  PI 

729 

148 

15 

13 

183 

0 

6 

0 

0 

0 

0 

0 

14 

Ob  Ac 

861 

827 

150 

29 

226 

0 

7 

0 

0 

0 

0 

0 

15 

Oisb 

106 

12 

17 

11 

44 

0 

1 

0 

0 

0 

0 

0 

16 

Unob 

48 

302 

22 

54 

10 

0 

1 

0 

0 

0 

0 

0 

17 

X  Unob 

5X 

27X 

13X 

6SX 

4X 

OX 

13X 

OX 

ox 

ox 

ox 

ox 

18 

X  Liqd 

12X 

IX 

11X 

38X 

19X 

OX 

14X 

ox 

ox 

ox 

ox 

ox 

19 

X  Oblg 

95X 

73X 

87X 

35X 

96X 

OX 

88X 

ox 

ox 

ox 

ox 

ox 

20 

X  Unob 

5X 

27X 

13X 

65X 

4X 

OX 

13X 

ox 

ox 

ox 

ox 

ox 

21 

X  Liqd 

12X 

IX 

11X 

38X 

19X 

OX 

14X 

ox 

ox 

ox 

ox 

ox 

22 

X  Unlq 

88X 

99X 

89X 

62X 

81X 

ox 

86X 

ox 

ox 

ox 

ox 

ox 

23 

Color 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

24 

Color 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

25 

Color 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

26 

27 

28 

29 

30  HFE371 

31  Procurement  Program  Dollar  Surmary  Class  CU] 

32  by  PEO 

33  FY89  Procurement  Execution  as  of  Jun  90 

34 

35  MFE372 

36  Procurement  Obligated  Dollar  Summary  Class  CU] 

37  by  PEO 

38  FY89  Procurement  Execution  as  of  Jun  90 

39 

40  MFE373 

41  Procurement  Percent  Obligated  Summary  Class  CU] 

42  by  PEO 

43  FY89  Procurement:  Execution  as  of  Jun  90 

44 

45  HFE374 

46  Procurement  Percent  Liquidated  Suimary  Class  [U] 

47  by  PEO 

48  FY89  Procurement  Execution  as  of  Jun  90 


FE380.PRM 
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1 

2 

3  FY88  Program  Dollars  by  PEO 

4 

5  MFE380 

6  Procurement  Execution  Sumaery  by  PEO  Ctass  [U] 

7  FY90  Procurement  Execution  as  of  Jun  90 

8 
9 


10 

PEO 

AD 

ASM 

AV 

etc 

COM 

CS 

FS 

MSD 

11 

Cong 

861  ' 

1490 

207 

109 

35 

0 

12 

0 

0 

0 

0 

0 

12 

Apvd 

855 

1449 

205 

122 

30 

0 

10 

0 

0 

0 

0 

0 

13 

0b  PI 

142 

273 

158 

124 

30 

0 

10 

0 

0 

0 

0 

0 

14 

Ob  Ac 

839 

1288 

180 

113 

30 

0 

10 

0 

0 

0 

0 

0 

15 

Disb 

326 

624 

78 

2 

25 

0 

8 

0 

0 

0 

0 

0 

16 

Unob 

16 

161 

25 

9 

0 

0 

0 

0 

0 

0 

0 

0 

17 

X  Unob 

2X 

11X 

12X 

7X 

OX 

ox 

OX 

OX 

ox 

ox 

ox 

ox 

18 

X  Liqd 

39X 

48X 

43X 

2X 

83X 

ox 

80X 

OX 

ox 

ox 

ox 

ox 

19 

X  Oblg 

98X 

89X 

88X 

93X 

100X 

0 

100X 

ox 

ox 

ox 

ox 

ox 

20 

X  Unob 

2X 

11X 

12X 

7X 

ox 

ox 

OX 

ox 

ox 

ox 

ox 

ox 

21 

X  Liqd 

39X 

48X 

43X 

2X 

83X 

ox 

80X 

ox 

ox 

ox 

ox 

ox 

22 

X  Unlq 

61X 

52X 

57X 

98X 

17X 

ox 

20X 

ox 

ox 

ox 

ox 

ox 

23 

Color 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

24 

Color 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

25 

Color 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

0 

26 

27 

28 

29 

30  MFE381 

31  Procurement  Program  Oollar  Summary  Class  CU] 

32  by  PEO 

33  FY88  Procurement  Execution  as  of  Jun  90 

34 

35  MFE382 

36  Procurement  Obligated  Dollar  Surma ry  Class  CU] 

37  by  PEO 

38  FY88  Procurement  Execution  as  of  Jun  90 

39 

40  MFE383 

41  Procurement  Percent  Obligated  Summary  Class  CU] 

42  by  PEO 

43  FY88  Procurement  Execution  as  of  Jun  90 

44 

45  MFE384 

46  Procurement  Percent  Liquidated  Sunnary  Class  CU] 

47  by  PEO 

48  FY88  Procurement  Execution  as  of  Jun  90 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 
23 


START  SETOFF 

HOST  DEL  MFEVPRN 
HOST  CLS 

HOST  ECHO  ...  Generating  Financial  Execution  files  ... 

START  MFECLASS 
START  MFE21X  0 
START  MFE310 
START  MFE21X  1 
START  MFE320 
START  MFE010 
START  MFE26X  0 
START  MFE360 
START  MFE26X  1 
START  MFE370 
START  HFE26X  2 
START  MFE380 
START  HFE050 

REM  EDIT  MFEVPRH 
START  SETON 
EXIT 
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1  rem  start  setoff 

2  rex  set  space  0 

3  spool  mfeOIO.prn 

4  select  "  froai  dual; 

5  select  "  froai  dual; 

6  select  "  from  dual; 

7  select  11  from  dual; 

8  select  'MFE010'  froai  dual; 

9  select  distinct  'ROTE  Financial  Execution  Main  Menu  Class  t'|| 

10  decode(class,lS,,,S',,C,,,C,,,U,)||  ']  '  from  tenpclass 

11  where  decode(class, 'S',2, 'C',1,0)  = 

12  (select  iaax(decode(class,  'S', 2,  'C',1,0))  froai  tea** lass); 

13  select  distinct  'FT' | |to_char(a.fy-1)| | '  and  FT' | |to_char(a.fy)| | •  ROTE  Execution  as  of  '|| 

14  to_char(b.emonth, 'Mon  YY' ) 

15  froai  tenpclass  a,  tenpclass  b 

16  where  a.seq_no  -  1 

17  and  b.emonths(select  max(emonth)  from  tenpclass); 

18  select  "  froai  dual; 

19  select  "  froai  dual; 

20  select  'MFE210'  froai  dual; 

21  select  'FY',fy,'  ROTE  Financial  Execution  by  Class  [',substr(class,1,1), 

22  ']'  from  tenpclass  where  seq_no  =  1; 

23  select  'Program  and  PEO  as  of  ' ,to_char(emonth, 'Mon  YY')  from  tenpclass  where  seq_no  =  1; 

24  select  "  from  dual; 

25  select  '  Program  Proj  Prgra  Element  Apprvd  Oblige-  Disbur-  X  X'  from  dual; 

26  select  'PEO  Program  Element  ID  Title  Program  tions  sed  Unobl  Liqd*  from  dual; 

27  select  "  from  dual; 

28  select  "  from  dual; 

29  select  "  from  dual; 

30  select  "  from  dual; 

31  select  'MFE211'  from  dual; 

32  select  'FY'.fy,'  ROTE  Financial  Execution  by  Class  [*,substr(class,1,1), 

33  ']'  from  tenpclass  where  seq_no  =  2; 

34  select  'Program  and  PEO  as  of  ‘ ,to_char(emonth, 'Mon  YY')  from  tenpclass  where  seq_no  =  2; 

35  select  "  from  dual; 

36  select  '  Program  Proj  Prgm  Element  Apprvd  Obliga-  Disbur-  X  X’  from  dual; 

37  select  'PEO  Program  Element  ID  Title  Program  tions  sed  Unobl  Liqd'  from  dual; 

38  select  "  from  dual; 

39  spool  off 

40  rem  start  seton 

41  rem  edit  mfeOIO.* 

42 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


rem  start  setoff 
re m  set  space  0; 
spool  mfeOSO.prn 
select  1  1  from  dual; 

select  1  1  from  dual; 

select  1  1  from  dual; 

select  '  1  from  dual; 

select  'MFE050  '  from  dual; 

select  distinct  'Procurement  Financial  Execution  Menu  Class  C'|| 
decode(class,'S,,,S,,,C,,,C,,,U')||  ']  '  from  tempclass 
where  decode(class,'S',2, 'C',1,0)  * 

(select  max(decode(class,'S',2,'C',1,0))  from  tempclass); 
select  distinct  'FY* ,a.fy-2| | ' ,  FT* | |to_char(a.fy-1)| | '  and  FY‘ | |to_char(a.fy) | | 

1  ROTE  Execution  as  of  '||  to_char(b.emonth, 'Mon  YY*>  rowl 
from  tempclass  a,  tempclass  b  where  a.seq_no  =  1 
and  b.emonth  =  (select  max(emonth)  from  tempclass); 
select  '  '  from  dual; 

select  '  '  from  dual; 

select  'MFE260  '  from  dual; 

select  'FY',fy,'  Procurement  Financial  Execution  by  Class  (*, 
substr(class,1,1), ']  •  from  tempclass  where  seq_no  *  1; 
select  'Program  and  PEO  as  of  ' ,to_char(emonth, 'Mon  YY')  from  tempclass  where  seq_no  *  1; 


select  ' 

'  from  dual; 

select  ' 

(SSN) 

'  from  dual; 

select  ' 

Item 

Apprvd  Obliga-  Disbur-  X  X  '  from  dual; 

select  'PEO  Program  Ctrl  #  Program  Line  Item  Name  Program  tions  sed  Unobl  Liqd  '  from  dual; 

select  '  •  from  dbal; 

select  '  '  from  dual; 

select  '  '  from  dual; 

select  'MFE261  '  from  dual; 

select  'FY'.fy, '  Procurement  Financial  Execution  by  Class  (', 
substr(class,1 , 1 ), ']  '  from  tempclass  where  seq_no  *  2; 
select  'Program  and  PEO  as  of  ' ,to_char(emonth, 'Mon  YY')  from  tempclass  where  seq_no  =  2; 


select  ' 

'  from  dual; 

select  ' 

(SSN) 

'  from  dual; 

select  ' 

Item 

Apprvd  Obliga-  Disbur-  X  X  '  from  dual; 

select  'PEO  Program  Ctrl  #  Program  line  Item  Name  Program  tions  sed  Unobl  Liqd  '  from  dual; 

select  '  '  from  dual; 

select  '  '  from  dual; 

select  '  '  from  dual; 

select  'MFE262  '  from  dual; 

select  'FY'.fy,'  Procurement  Financial  Execution  by  Class  [', 
substr(class,1,1), ']  '  from  tempclass  where  seq_no  *  3; 
select  'Program  and  PEO  as  of  ' ,to_char(emonth, 'Mon  YY')  from  tempclass  where  seq_no  =  3; 
select  '  '  from  dual; 

select  '  (SSN)  •  from  dual; 

select  '  Item  Apprvd  Oblige-  Disbur-  X  X  '  from  dual; 

select  'PEO  Program  Ctrl  #  Program  Line  Item  Name  Program  tions  sed  Unobl  Liqd  '  from  dual; 

select  '  '  from  dual; 

select  '  '  from  dual; 

select  '  '  from  dual; 

select  'MFE290  '  from  dual; 

select  'FY'.fy,'  Procurement  Financial  Execution  Class  l', 
substr(class,1,1), ']  •  from  tempclass  where  seq_no  =  1; 
select  'Obligation  Plan  by  Program  and  PEO  as  of  ' ,to_char(emonth, 'Mon  YY')  from  tempclass  where  seq_no  *  1; 
select  '  '  from  dual; 
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'  froa  dual; 
Oblg  Obliga-  XCu*  X  1 
Plan  tions  Var  linobl  1 


froa  dual; 
froa  dual; 


1  froa  dual; 

Oblg  Obliga-  XCu*  X  1  from  dual; 
Plan  tions  Var  Unobl  1  froa  dual; 


57  select  '  (SSN)  •  froa  dual; 

58  select  1  Itea  Apprvd  Oblg  Obliga-  XCu*  X  '  froa  dual; 

59  select  'PEO  Prograa  Ctrl  #  Program  line  Itea  Name  Program  Plan  tions  Var  Unobl  1  froa  dual; 

60  select  1  1  froa  dual; 

61  select  '  '  froa  duel; 

62  select  1  1  froa  dual; 

63  select  'NFE291  1  froa  dual; 

64  select  'FY'.fy, 1  Procurement  Financial  Execution  Class  [', 

65  substr(class,1,1), ']  '  froa  tenpclass  where  seq_no  *  2; 

66  select  'Obligation  Plan  by  Program  and  PEO  as  of  ', to_char(emonth, 'Hon  YY')  froa  tenpclass  where  seq_no  *  2; 

67  select  '  '  froa  dual; 

68  select  '  (SSN)  •  from  dual; 

69  select  '  Itea  Apprvd  Oblg  Obliga-  XCu*  X  1  from  dual; 

70  select  'PEO  Prograa  Ctrl  #  Program  Line  Item  Name  Program  Plan  tions  Var  Unobl  '  froa  dual; 

71  select  '  '  froa  dual; 

72  select  '  '  from  dual; 

73  select  '  '  f<om  dual; 

74  select  'MFE292  '  from  dual; 

75  select  'FY'.fy,'  Procurement  Financial  Execution  Class  (', 

76  substr(class,1,1), ']  '  from  tempclass  where  seq_no  *  3; 

77  select  'Obligation  Plan  by  Program  and  PEO  as  of  ' ,to_char(emonth, 'Mon  YY')  from  tenpclass  where  seq_no  -  3; 

78  select  '  '  from  dual; 

79  select  '  (SSN)  '  from  dual; 

80  select  '  Item  Apprvd  Oblg  Obliga-  XCun  X  '  from  dual; 

81  select  'PEO  Program  Ctrl  #  Program  Line  Item  Name  Program  Plan  tions  Var  Unobl  '  from  dual; 

82  spool  off; 

83  rem  start  seton 

84  rem  edit  mfe050.* 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


start  setoff 

set  nunwidth  6 

col  short_peo 

format 

a3 

col  short_pna 

format 

a7 

col  pentMber 

format 

alO 

col  projid 

format 

a6 

col  peono 

print 

col  pno 

print 

col  dummy 

print 

col  dm 

print 

col  sp 

print 

col  pen 

print 

col  proj 

print 

col  spn 

print 

define  parm1=&1 

drop  table  mfetemp; 

select  1  1  from  dual; 

create  table  mfetemp  as 

select  a.peo_no,b.pno,short_peo,  short_pna,  c.penmtaer,  e. class, 
c.projid,  substr(ltrim(d. pename), 1,12)  pename, 

curr_aprvd_program  calcl,  obi i gated_f unds  calc2,  di sbursedf unds  calc3, 
to_number(null)  calcS,  to_nunber(nul l )  calc6, 

•O'  dumry,  'O'  tin,  '0*  unq,  e.fy 

from  pea  a,  program  b,  projects  c,  pe  d,  rdte_exec  e 
where  a.peono  a  b.peo_no 

and  a.submitdate  *  (select  max(submitdate)  from  peo 
where  peono  =  a.peo  no) 

and  b.pno  =  c.pno 

and  b.submitdate  ■  (select  submitdate  from  latest_submission 
where  pno  *  b.pno) 

and  c.pno  -  d.pno 
and  d.ric  =  M* 

and  rtrim(c.penumber)  =  rtrim(d.penunber) 
and  rtrim(c.penumber)  *  rtrim(e.penumber) 
and  c.projid  »  e.projid 

and  e.fy  *  (select  (max(fy)-&parm1)  from  rdte_exec) 
and  e.exec_month  =  (select  max(execjnonth)  from  rdte_exec 
where  penunber  =  e.penumber 
and  projid  *  e.projid 
and  fY  =  e.fy) 

union 

select  a.peo_no,b.pno,short_peo,  short_pna,  e.penumber,  'U'  class, 
c.projid,  substr(ltrim(d. pename), 1,12)  pename, 
to_nurtber(null),  to_nunber(null),  to_mitber(null),  to_number(null), 
to_number(nul l ) ,  'O'  dummy,  'O'  dm,  'V  unq,  0 
from  peo  a,  program  b,  projects  c,  pe  d 
where  a.peo_no  *  b.peo_no 

and  a.submitdate  *  (select  max(submitdate)  from  peo 
where  peo_no  *  a .  peo  no ) 

and  b.pno  *  c.pno 

and  b.submitdate  *  (select  submitdate  from  latest_submission 
where  pno  =»  b.pno) 


•  nFE21X.SQt 


Thursday,  October  11,  1990  3:55  pm 


Page  2 


57 

58 

59 

•  60 
61 
62 

63 

64 

65 

•  66 

67 

68 

69 

70 

71 

•  72 

73 

74 

75 

76 

77 

•  78 

79 

80 
81 
82 
83 

•  84 

85 

86 

87 

88 
89 

•  90 

91 

92 

93 

94 

95 

•  96 

97 

98 

99 
100 
101 

•  102 

103 

104 

105 

106 
107 

#  108 

109 

110 
111 
112 


and  c.pno  *  d.prto 
and  d.ric  *  *1' 

and  rtria(c.penaber)  *  rtrinKd.penuntoer) 
and  (rtrim(c.penurt>er),c.projid)  not  in 

(select  rtri«Kpeni*ber),projid  from  rdte_exec); 

update  mfetemp  a  set  unq  »  *1' 

where  (rowid,peo_no,penunber,projid,calc1,calc2,calc3) 
in  (select  rowid,peo_no,penuaber,projid,calc1,calc2,calc3 
from  mfetemp  a 
where  unq  *  'O' 

and  rowid  1=  (select  min(rowid)  from  mfetemp  b 

where  a.penuaber*  b.penumber 

and  a.peono  =  b.peono 

and  a.projid  =  b.projid 

and  a.calcl  *  b.calcl 

and  a.calc2  =  b.catc2 

and  a.calc3  *  b.calc3)); 

set  space  1 
spool  mfeddl.sql; 

select  distinct  'start  mfe21x1',  peo_no,  pno 
from  mfetemp; 
spool  off; 

spool  mfedd2.sql; 

select  distinct  'start  mfe21x2',  peo_no 
from  mfetemp; 
spool  off; 
start  mfeddl 
start  mfedd2 

set  space  0 

col  peo_no  noprint 

col  pno  noprint 

col  dunny  noprint 

col  da  noprint 

col  sp  noprint 

col  pen  noprint 

col  proj  noprint 

col  spn  noprint 

col  tot4  format  999.0 

col  tot5  format  999.0 

break  on  da  skip  1; 
break  on  spn  skip  1; 
spool  MFE21&parm1 . .PRN; 

select  a.short_peo  sp,  b.short_pna  spn,  d.penuaber  pen  .d.projid  proj, 
c.peo_no,c.pno,c.short_peo, '  ',  c. short _pna,'  ',  c.penunber,'  ', 
c.projid,1  ',  c.pename,  dunny,  da, 

to_char(round(calc1,1),'9,999.0'),  to_char(round(catc2,1), '9,999.0'), 
to_char(round(calc3,1), '9,999.0'), 

decode(round(calc1,1),0,0,(round(calc1,1)-rowid(calc2,1))/round(calcl,1)*100)  tot4, 
decode( round(calc2, 1 ),0,0, round(calc3, 1 )/round(calc2, 1 )*100)  tot5 
from  oeo  a,  program  b, projects  d,  mfetemp  c 
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114 

115 

116 

117 

118 

119 

120 
121 
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123 

124 

125 

126 

127 
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129 

130 

131 

132 

133 

134 
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136 

137 

138 

139 

140 

141 

142 

143 

144 

145 

146 


where  du—y  ■  'O' 
and  a . peono  *  c . peono 
and  b.pno  *  c.prto 
and  c.pemmber  *  d.penunber 
and  c.projid  ■d.projid 

union 

select  a. short _peo  s p,  b. short _pna  spn,  'izzzumz'  pen,  'zzzzzz'  pr oj, 
c.peo_no,c.pno, 1  1  *,'  * .  ‘ 

•Progra' , 'm' , '  Total:',  dunay,  da, 

to_char(calc1 , '999,990' ),  to_char(calc2, '999,990' ), 

to_char(calc3, '999,990' ), 

decodet round( ca l cl , 1 ) , 0 , 0 , ( round( ca l cl , 1 ) - round{ ca l c2 , 1 ) ) / roundt ca l c 1 , 1 )* 1 00 ) 
decodet roundt ca l c2 , 1 ) , 0 , 0 , round( ca l c3 , 1 )/ roundt ca l c2 , 1 )* 1 00 ) 
from  peo  a,  program  b,  mfetemp  c 
where  duaaay  *  '1' 

and  a.peono  «  c.peo_no 
and  b.pno  *  c.pno 

union 

select  a.short_peo  sp,  'zzz'  spn,  'zzzzzzzzzz'  pen,  'zzzzzz*  proj, 
c.peo_no, c.pno, '  ','  ',  '  ','  ',  '  ','  ', 

•PEO  To'.'t'.'al:',  dummy,  dm, 

to_char(calc1 , '999,990' ),  to_char<calc2, '999,990'), 
to_char(calc3, '999,990'), 

decodel round( ca l c 1 , 1 ) , 0 , 0 , ( round( ca l c 1 , 1 ) - r ound( ca l c2 , 1 ) ) / roundt ca l c 1 , 1 ) * 1 00 ) 
decodet roundt ca l c2, 1 ) ,0,0, roundt calc3, 1 )/roundtcalc2, 1 )*100) 
from  peo  a,  mfetemp  c 
where  dummy  *  '2' 

and  a.peo  no  *  c.peo  no 
order  by  1,2,3,4,16; 
spool  off; 
clear  breaks; 

rem  start  seton 

rem  edit  mfe2*.prn  mfe21*.sql 
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1  insert  into  mfeteap 

2  select  '41','42','  ' 

3  8un(calc1), 

4  sua<calc2), 

5  sunKcalc3), 

6  sunKcalcS), 

7  sun<calc6), 

S  '1'  dummy,  'O'  eta  ,'1 

9  from  Mfeteap 

10  where  peo_no  *  *41' 

11  and  prto  *'42' 


•  I  I  I  I  • 
fill 


•  unq.O 
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1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 


insert  into  MfeteMp 
select  'il'.'zzz  ', 

suatcalcl), 
sua(calc2), 
sua(calc3), 
sua(calc5), 
sun<calc6), 

*2'  dunay,  '1 1  dm  , 
from  mfetenp 
where  peo  no  *  '&1 1 
and  dunay  *  'O' 
and  unq  *  'O'; 


I  I  I  1  I  I  I  I 
fill 


'  unq,  0 
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2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


start  setoff 

set  numwidth  6 

col  short _peo 
col  short_pna 
col  extra 

col  peo_no 

print 

col  pno 

print 

col  dunay 

print 

col  dm 

print 

col  sp 

print 

col  itm 

print 

col  spn 

print 

define  panel *41 

drop  table  mfetemp; 
select  1  ‘  from  dual; 

fonMt  a3 
format  a7 
format  al 


create  table  mfetemp  as 

select  a.peojio,  b.pno,  short __peo,  short_pna,  c.itemctlnun,  e. class, 

1  '  extra,  substr(ltrim(c. pliname), 1,23)  pliname, 

curr_aprvd_program  calcl,  obligated_funds  calc2,  disbursed_funds  calc3, 
cum_cur_obl_plan  calc5,  cong_auth_program  calc6, 

■01  dummy,  'O'  <*n,  'O'  unq,  e.fy 

from  peo  a,  program  b,  pi I  c,  proc_exec  e 

where  a.peojio  *  b.peorto 

and  a.sutxnitdate  =  (select  max(submitdate)  from  peo 
where  peono  *  a.peono) 

and  b  prto  =  c.pno 

and  b.submitdate  =  (select  submitdate  from  latest_submission 
where  prto  =  b.pno) 

and  rtrim(c.itemctlnun)  =  rtrim(e.itemctlnun) 
and  e.fy  =  (select  (max(fy)-&parm1)  from  proc_exec) 
and  e.execjnonth  =  (select  max(exec_month)  from  proc_exec 
where  itemctlnum  =  e. i  tenet  tnun 
and  fy  *  e.fy) 


union 

select  a.peono,  b.pno,  short_peo,  short_pna,  c.itemctlrxjn,  'U', 

•  ',  substr(ltrim(c. pliname), 1,23), 

to_mmber(null),  to_nunber(null),  to_number(null),  to_rxjrtoer(null), 
to_number(null),  'O'  dummy,  'O'  dm,  '1'  unq,  0 
from  peo  a,  program  b,  pli  c 
where  a.peo_no  =  b.peo_no 

and  a. submitdate  -  (select  max(submitdate)  from  peo 
where  peo_no  *  a . peo_no ) 

and  b.pno  =  c.pno 

and  b.submitdate  =  (select  submitdate  from  latest_submission 
where  prto  =  b.pno) 

and  rtrimfe. itemctlnum)  not  in  (select  rtrim(itemctlnun)  from  proc_exec) 


update  mfetemp  a  set  unq  *  '1' 

where  lrowid,peo_no, itemctlnua, calcl, calc2,calc3) 
in  (select  rowid,peo_no, itemctlnus, calcl ,calc2,calc3 
from  mfetenp  a 
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86 

87 
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where  inq  *  '0' 

and  rowid  I*  (select  ain(rowid)  fro*  mfetemp  b 

where  a-itemctlncmm  b.itemctlnue 

and  a.peo  no  *  b.peo_no 

and  a.calcl  *  b.calcl 

and  a.calc2  *  b.calc2 

and  a.catc3  -  b.calc3)); 


set  space  1 
spool  mfeddl.sql; 

select  distinct  'start  mfe21x1',  peo_no,  pno 
from  mfetemp; 
spool  off; 

spool  mfedd2.sql; 

select  distinct  'start  infe21x2',  peo_no 
from  mfetemp; 
spool  off; 
start  mfeddl 
start  mfedd2 


set 

col 

space  0 

peorto 

noprint 

col 

pno 

noprint 

col 

dummy 

noprint 

col 

ckn 

noprint 

col 

sp 

noprint 

col 

itm 

noprint 

col 

spn 

noprint 

col 

itemctl 

format  a6 

col 

tot4 

format  999.0 

col 

tot5 

format  999.0 

break  on  <*n  skip  1; 
break  on  spn  skip  1; 
spool  HFE26&parm1..PRN; 

select  a.short_peo  sp,  b.short_pna  spn,  d.itemctlnum  itm,  c.peo_no,  c.pno, 

c.short_peo, '  ',  c. short jxia, '  ',  c.  itemctlnun  itemctl,’  ',  c.pliname, 
duimy,  dm, 

to_char(round(calc1,1), '9,999.0'),  to_char(round(calc2,1), '9,999.0'), 
to_char(round(calc3, 1 ) , '9,999.0' ), 

decode(round(calc1,1),0,0,(round(calc1,1)-round(calc2,1))/round(calc1,1)*100)  tot4, 
decode<round(calc2,1),0,0,round(calc3,1)/round(calc2, 1)*100)  tot5 
from  peo  a,  program  b,  pli  d,  mfetemp  c 
where  duimy  =  'O' 

and  a.peo_no  =  c.peo_no 

and  b.pno  *  c.pno 

and  c.itemctlnu#  =  d.itemctlnum 

union 

select  a.short_peo,  b.shortjsna,  'zzzzzzzzzz',  c.peo_no,  c.pno, 

•  ','  ','  ','  ','  Program  Total:',  dunmy,  dm, 

to_char(ealc1, '999,990'),  to_char(calc2, '999,990'), 
to_char(calc3, '999,990'), 

decode(round(calc1,1),0,0,(round(calc1,1)-round(calc2,1))/round(calc1,1)*100). 
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113  decode(rot»id<ealc2, 1),0,0,round(calc3,1)/round(calc2, 1 >*100) 

114  froa  peo  a,  prograa  b,  mfeteop  c 

115  where  dumry  »  •  1  • 

116  and  a.peo_no  -  c.peo_no 

117  and  b.pno  *  c.pno 

118  union 

119  select  a.short_peo,  *zzz*,  'zzzzzzzzzz',  c.peo_rvo,  c.pno, 

120  '  *.•  V  PEO  Total:*,  duimy,  ckn, 

121  to_char(calc1, *999,990'),  to_char(calc2, *999,990' ), 

122  to_char(calc3, *999,990*), 

123  decode(round(calc1,1),0,0,(round(calc1,1)-round(calc2,1))/round(calc1,1)*100), 

124  decode(round<calc2,1),0,0,round(calc3,1)/round(calc2,1)*100) 

125  from  peo  a,  mfetemp  c 

126  where  duimy  ■  '2* 

127  and  a.peono  *  c.peo_no 

128  order  by  1,2,3,13; 

129  spool  off; 

130 

131  spool  MFE29&parm1 . .PRN; 

132  select  a.short_peo  sp,  b.short_pna  spn,  d. itemctlnum  itm,  c.peo_no,  c.pno, 

133  c.short_peo, '  ',  c.short_pna, '  ',  c. itemctlnum  itemetl,'  *,  c. pi i name, 

134  duimy,  dm, 

135  to_char(round(calc1,1), *9,999.0'),  to_char(rouid<calc5,1), *9,999.0*), 

136  to_char(round(calc2,1), '9,999.0'), 

137  decode( round(calc5,1),0,0,(round(calc2,1)-round(calc5,1))/round(calc5,1)*100)  tot4, 

138  decode(round<calc1,1),0,0,(round(calc1,1)-round(catc2,1))/round(calc1,1)*100)  tot5 

139  from  peo  a,  program  b,  pi i  d,  mfetenp  c 

140  where  duimy  =  *0* 

141  and  a.peono  *  c.peono 

142  and  b.pno  *  c.pno 

143  and  c.itemctlnun  =  d.itemctlnun 

144  union 

145  select  a.short_peo,  b.short_pna,  'zzzzzzzzzz',  c.peo_no,  c.pno, 

146  *  *,'  *,*  *,*  ',*  ',*  ','  Program  Total:',  duimy,  c*n, 

147  to_char(calc1, *999,990'),  to_char(calc5, *999,990* ), 

148  to_ehar(calc2, *999,990'), 

149  decode(round(calc5,1),0,0,(round(calc2,1)-round(calc5,1))/round(calc5, 1)*100), 

150  decode(round(calc1,1),0,0,(round(calc1,1)-round(calc2,1))/round(calc1,1)*100) 

151  from  peo  a,  program  b,  mfetemp  c 

152  where  duimy  *  *1* 

153  and  a.peo  no  *  c.peo_no 

154  and  b.pno  =  c.pno 

155  union 

156  select  a.short_peo,  *zzz*,  'zzzzzzzzzz',  c.peo_no,  c.pno, 

157  1  V  V  V  V  PEO  Total:*,  duimy,  <±n, 

158  to_char(calc1, *999,990'),  to_char(calc5, *999,990* ), 

159  to_char(calc2, *999,990'), 

160  decode(round(calc5,1),0,0,(round(calc2,1)-round(calc5,1))/round(calc5,1)*100), 

161  decode<round(calc1,1),0,0,<round(calc1,1)-round<ealc2,1>)/round(calc1,1)*100) 

162  from  peo  a,  mfetemp  c 

163  where  duney  *  *2* 

164  and  a. peo_.no  =  c.peo_no 

165  order  by  1,2,3,13; 

166  spool  off; 

167 

168  clear  breaks; 
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1 

drop  table  mfe; 

2 

create 

table  mfe 

3 

(peo_no 

char(4), 

4 

short_peo 

char(3). 

5 

seq_no 

nuaber. 

6 

coll 

number  (4), 

7 

col  2 

number(4). 

8 

col3 

nunber(4). 

9 

col4 

nunber(4). 

10 

cot5 

number(4), 

11 

col6 

nunber(4). 

12 

col7 

number(4). 

13 

col8 

nunber(4). 

14 

col9 

nunber(4). 

15 

16 

collO 

number(4)); 

17 

drop  index  mfel; 

18 

create 

index  mfel 

on  mfetemp(short_peo); 

19  insert  into  mfe(short_peo,peo_no) 

20  select  distinct  short_peo,  peono  from  mfetemp 

21  where  dunny  *  ‘O'; 

22 

23  insert  into  mfe(peo_no)  select  blank  from  nulltbl 

24  where  rownun  <=(select  12-count(*)  from  mfe); 

25  update  mfe  set  seq_no=rownun; 

26 

27  update  mfe  a  set 

28  coll*  (select  round(calcl)  from  mfetemp 

29  where  a.peono  *  peono 

30  and  dunny  =  *2'), 

31  col2=  (select  round(calc2)  from  mfetemp 

32  where  a.peo  no  *  peo  no 

33  and  dunny  =  ‘2'), 

34  col3=  (select  round(calc3)  from  mfetemp 

35  where  a.peo_no  =  peo_no 

36  and  dunny  =  '2*), 

37  col4=  (select  rour>d(calc1)-round(calc2)  from  mfetemp 

38  where  a . peo_no  ■  peo_no 

39  and  dunny  *  '2'), 

40  col5=  (select  decode(round(calc1),0,0,(round(calc1)-round(calc2)) 

41  /  round(calcl)  *  100)  from  mfetemp 

42  where  a.peo  no  =  peo_no 

43  and  dummy  *  '2'), 

44  col6=  (select  decode(round(calc2),0,0,round(calc3) 

45  /  round(calc2)  *  100)  from  mfetemp 

46  where  a.peo_no  =  peo_no 

47  and  dummy  =  ’2' ), 

48  co l 7=  (select  decode(round(calc1),0,0,round(calc2) 

49  /  round(calcl)  *  100)  from  mfetemp 

50  where  a.peo_no  =  peo_no 

51  and  dunmy  =  '2'), 

52  col8=  (select  decode(round(calc2),0,0,(round(calc2)-round(calc3)) 

53  /  roux1(calc2)  *  100)  from  mfetemp 

54  where  a.peo_no  *  peo_no 

55  and  dummy  »  '2'), 

56  col9=  (select  round(calc6)  from  mfetemp 
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57 

where 

a.peo_no  »  | 

58 

and  dummy  *  •2‘ 

59 

collO*  (select 

round(calc5 

60 

where 

i.pco^no  *  1 

61 

and  dummy  ■  *2* 

62 

where  fseono  s 

,  i  i  - 
i 

63 

64 

select 

*  from  mfe; 

65 

66 

drop  table  mfehead; 

67 

drop  table  mfebody; 

68 

create 

table  mfehead 

69 

(  short  jseol 

char(3). 

70 

short_peo2 

char(3). 

71 

shortjseo3 

char(3). 

72 

short_peo4 

char(3). 

73 

shortjseo5 

char(3). 

74 

short_peo6 

char(3). 

75 

shortjseo7 

char(3). 

76 

shortjseoS 

char(3), 

77 

short_peo9 

char(3). 

78 

shortjseolO 

char(3). 

79 

short  jseol  1 

char(3), 

80 

shortjseo12 

char(3)); 

«  peo_no 


81 

82 

83 

84 

85 

86 

87 

88 

89 

90 

91 

92 

93 

94 

95 

96 

97 

98 


insert  into  mfehea<J{  short  jseol )  valuesC 
update  mfehead  set 


'); 


select 


short_peo1  *  (select  short_peo  fro*  mfe  where  seq_no  * 

short_peo2  *  (select  short_peo  from  mfe  where  seq_no  = 

short_peo3  *  (select  short_peo  from  mfe  where  seq_no  = 

short  jseo4  *  (select  short _peo  from  mfe  where  seq_no  = 

short_peo5  =  (select  short_peo  from  mfe  where  seq_no  = 

short  j>eo6  *  (select  shortjseo  from  mfe  where  seq_no  = 

short_peo7  *  (select  shortjseo  from  mfe  where  seq_no  = 

short_peo8  *  (select  short_peo  from  mfe  where  seq_no  * 

shortjseo?  =  (select  short_peo  from  mfe  where  seq_no  = 

shortjseolO  =  (select  shortjseo  from  mfe  where  seq_no  s 

short_peo11  =  (select  shortjseo  from  mfe  where  seq_no  = 

shortjseo12  =  (select  short jseo  from  mfe  where  seq_no  = 

*  from  mfehead; 


create  table  mfebody 


99 

(seq_no  number, 

100 

coll 

number. 

101 

col  2 

number. 

102 

col3 

number. 

103 

col4 

number. 

104 

col5 

number, 

105 

col6 

number, 

106 

col7 

number. 

107 

col8 

number. 

108 

col? 

number, 

109 

collO 

number. 

110 

colli 

number. 

111 

col12 

number); 

112 


D, 

2). 

3), 

«), 

5), 

5), 

7) . 

8) . 
9), 

10), 

ID, 

12); 
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113 

insert 

into  *febody<seq_no)  values  (1); 

114 

update 

mfebody  set 

115 

coll  »  (select 

coll 

from  mfe  where  seq_no 

X 

1). 

116 

col2  «  (select 

coll 

from  mfe  where  seq_no 

X 

2). 

117 

col3  *  (select 

coll 

from  mfe  where  seq_no 

3 

3). 

118 

col4  *  (select 

coll 

from  mfe  where  seq_no 

3 

6). 

119 

col5  =  (select 

coll 

from  mfe  where  seq_no 

X 

5), 

120 

col6  »  (select 

coll 

from  mfe  where  seq_no 

3 

6). 

121 

col7  =  (select 

coll 

from  mfe  where  seq_no 

= 

7). 

122 

col8  =  (select 

coll 

from  mfe  where  seq_no 

Z 

8). 

123 

col9  *  (select 

coll 

from  mfe  where  seq_no 

3 

9). 

124 

collO  »  (select 

coll 

from  mfe  where  seq_no 

X 

10), 

125 

colli  *  (select 

coll 

from  mfe  where  seq_no 

3 

ID, 

126 

col12  *  (select 

coll 

from  mfe  where  seq_no 

= 

12) 

127 

where  seq_r>o  *  ' 

i; 

128 

129 

insert 

into  mfebody(seq_no)  values  (2); 

130 

update 

mfebody  set 

131 

coll  =  (select 

col2 

from  mfe  where  seq_no 

3 

D, 

132 

col2  »  (select 

col2 

from  mfe  where  seqjro 

= 

2), 

133 

col3  =  (select 

col2 

from  mfe  where  seq_no 

= 

3). 

134 

col4  =  (select 

col2 

from  mfe  where  seq_no 

s 

4), 

135 

col5  a  (select 

col2 

from  mfe  where  seq_no 

= 

5). 

136 

col6  =  (select 

col2 

from  r.fe  where  seq_na 

6), 

137 

col7  =  (select 

col2 

from  mfe  where  seq_no 

= 

7). 

138 

col8  =  (select 

col2 

from  mfe  where  seq_no 

= 

8). 

139 

col9  a  (select 

col2 

from  mfe  where  seq_no 

= 

9). 

140 

col 10  a  (select 

col  2 

from  mfe  where  seq_no 

X 

10) 

141 

colli  =  (select 

col2 

from  mfe  where  seq_no 

= 

11) 

142 

col 12  =  (select 

col  2 

from  mfe  where  seq_no 

X 

12) 

143 

where  seq_no  •  i 

)• 

-» 

144 

145 

i nsert 

into  mfebody(seq_no)  values  (3); 

146 

update 

mfebody  set 

147 

coll  =  (select 

col3 

from  mfe  where  seq_no 

= 

1). 

148 

col2  3  (select 

col3 

from  mfe  where  seq_no 

= 

2), 

149 

col3  =  (select 

col3 

from  mfe  where  seq_n° 

= 

3), 

150 

col4  =  (select 

col3 

from  mfe  where  seq_no 

X 

6), 

151 

col5  =  (select 

col3 

from  mfe  where  seq_no 

X 

5), 

152 

col6  =  (select 

col3 

from  mfe  where  seq_no 

= 

6), 

153 

col7  =  (select 

col3 

from  mfe  where  seq_no 

= 

7). 

154 

col8  *  (select 

col3 

from  mfe  where  seq_no 

= 

8), 

155 

col9  =  (select 

col3 

from  mfe  where  seq_no 

3 

9), 

156 

collO  a  (select 

col3 

from  mfe  where  seq_no 

= 

10) 

157 

colli  =  (select 

col3 

from  mfe  where  seq_no 

3 

11) 

158 

col12  =  (select 

col3 

from  mfe  where  seq_no 

= 

12) 

159 

where  seq_no  =  ; 

5; 

160 

161 

insert 

into  mfebody(seq_no)  values  (4); 

162 

update 

mfebody  set 

163 

coll  =  (select  col4  from  mfe  where  seq_no 

= 

1). 

164 

cot2  a  (select  col4 

from  mfe  where  seq_no 

= 

2). 

165 

col3  »  (select  col4  from  mfe  where  seq_no 

X 

3). 

166 

col4  >  (select  col4  from  mfe  where  seq_no 

= 

4), 

167 

col5  =  (select  eol4  from  mfe  where  seq_no 

X 

5), 

168 

col6  a  (select  col4 

from  mfe  where  seq_no 

X 

6). 
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169 

170 

171 

172 

173 

174 

175 

176 

177 

178 

179 

180 
181 
182 

183 

184 

185 

186 

187 

188 

189 

190 

191 

192 

193 

194 

195 

196 

197 

198 

199 

200 
201 
202 

203 

204 

205 

206 

207 

208 

209 

210 
211 
212 

213 

214 

215 

216 

217 

218 

219 

220 
221 
222 

223 

224 


col 7  *  (select  col4  from  mfe  where  seq_no  *  7), 

col8  *  (select  coU  from  mfe  where  seq_no  ■  8), 

col9  ■  (select  col4  from  mfe  where  seq_no  *  9), 

col  10  *  (select  col4  from  mfe  where  seq_r>o  »  10), 

colli  *  (select  coU  from  mfe  where  seq_no  »  11), 

col  12  *  (select  coU  from  mfe  where  seq_no  ■  12) 

where  seq_no  »  4; 

insert  into  mfebody(seq_no)  values  (5); 

update  mfebody  set 

coll  *  (select  col5  from  mfe  where  seq_no  =  1), 

col2  *  (select  col5  from  mfe  where  se<^_no  *  2), 

col3  «  (select  col5  from  mfe  where  seq_no  =  3), 

col4  =  (select  col5  fro*  mfe  where  seq_no  =  4), 

col5  =  (select  col5  from  mfe  where  seq_no  *  5), 

col6  =  (select  col5  from  mfe  where  seq_no  =  6), 

col7  =  (select  col5  from  mfe  where  seq_no  =  7), 

col8  =  (select  col5  from  mfe  where  seq_no  =  8), 

col9  =  (select  col5  from  mfe  where  seq_no  =  9), 

col 10  =  (select  colS  from  mfe  where  seq_rw  =  10), 

colli  =  (select  col5  from  mfe  where  seq_no  *  11), 

col 12  *  (select  col5  from  mfe  where  seq_no  *  12) 

where  seq_no  *  5; 

insert  into  mfebody(sec(_no)  values  (6); 

update  mfebody  set 

coll  -  (select  col6  from  mfe  where  seq_no  *  1), 

col2  *  (select  col6  from  mfe  where  seq_no  a  2), 

col3  =  (select  col6  from  mfe  where  seq_no  *  3), 

col4  a  (select  eol6  from  mfe  where  seq_no  =  4), 

col5  =  (select  col6  from  mfe  where  seq_no  =  5), 

col6  =  (select  col6  from  mfe  where  seq_no  =  6), 

col7  =  (select  eol6  from  mfe  where  seq_no  a  7), 

col8  =  (select  col6  from  mfe  where  seq_no  =  8), 

col9  =  (select  col6  from  mfe  where  seq_no  =  9), 

collO  =  (select  col6  from  mfe  where  seq_no  =  10), 

colli  =  (select  col6  from  mfe  where  seq_no  =  11), 

col12  =  (select  col6  from  mfe  where  seq_no  =  12) 

where  seq_no  -  6; 

insert  into  mfebody(seci_no)  values  (7); 

update  mfebody  set 

coll  =  (select  col7  from  mfe  where  seq_no  =  1), 

col2  =  (select  col7  from  mfe  where  seq_no  =  2), 

col3  =  (select  col7  from  mfe  where  seq_no  =  3), 

col4  a  (select  col7  from  mfe  where  seq_no  =  4), 

col5  =  (select  col7  from  mfe  where  seq_no  =  5), 

col6  *  (select  col7  from  mfe  where  seq_no  =  6), 

col7  =  (select  col7  from  mfe  where  seq_no  =  7), 

col8  a  (select  col7  from  mfe  where  seq_no  =  8), 

col9  *  (select  col7  from  mfe  where  seq_no  =  9), 

col 10  a  (select  col7  from  mfe  where  seq_no  =  10), 

colli  *  (select  col7  from  mfe  where  seq_no  =  11), 

col12  =  (select  col7  from  mfe  where  seq_no  *  12) 

where  seq_no  *  7; 


#  MFE300P.SQI 


Thursday,  October  Tl,  1990  3:55  pm 


Page  5 


225 

insert 

into  mfebody(seq_no)  values  (8] 

>; 

226 

update 

mfebody 

set 

227 

coll  * 

(select 

col8 

from 

mfe 

where 

seq^no 

x 

1>. 

228 

col2  * 

(select 

colS 

from 

mfe 

where 

seq_no 

X 

2). 

229 

col3  * 

(select 

co  18 

from 

mfe 

where 

seq_no 

X 

3). 

230 

col4  s 

(select 

col8 

from 

mfe 

where 

seq_no 

X 

4). 

231 

eol5  * 

(select 

cot8 

from 

mfe 

where 

seq_no 

X 

5>. 

232 

col6  > 

(select 

col8 

from 

mfe 

where 

seq_no 

X 

8), 

233 

col7  » 

(select 

col8 

from 

mfe 

where 

seq_no 

X 

7). 

234 

col8  * 

(select 

col8 

from 

srfe 

where 

seq_no 

X 

8), 

235 

col9  * 

(select 

col8 

from 

mfe 

where 

seq_no 

X 

9), 

236 

collO  x 

(select 

col8 

from 

srfe 

where 

seq_no 

X 

10) 

237 

colli  x 

(select 

col8 

from 

srfe 

where 

seq_no 

X 

ID 

238 

col12  x 

(select 

colS 

from 

srfe 

where 

seq_no 

X 

12) 

239 

where  seq_no  *  8; 

240 

241 

i nsert 

into  mfebody(seq_no)  values  (9); 

242 

update 

mfebody 

set 

243 

coll  * 

(select 

col9 

from 

mfe 

where 

seq_no 

X 

D. 

244 

col2  = 

(select 

col9 

from 

mfe 

where 

seq_no 

3 

2). 

245 

col3  = 

(select 

col9 

from 

mfe 

where 

seq_r>o 

= 

3). 

246 

col4  = 

(select 

COl9 

from 

srfe 

where 

seq_no 

3 

4), 

247 

col  5  = 

(select 

col9 

from 

mfe 

where 

seq_no 

X 

5). 

248 

col6  3 

(select 

col9 

from 

mfe 

where 

seq_no 

= 

8), 

249 

col7  = 

(select 

col9 

from 

srfe 

where 

seq_no 

= 

7), 

250 

col8  = 

(select 

eol9 

from 

mfe 

where 

seq_no 

3 

8). 

251 

col9  * 

(select 

col9 

from 

mfe 

where 

seqjio 

X 

9). 

252 

collO  = 

(select 

col9 

from 

mfe 

where 

seq_no 

X 

10) 

253 

colli  = 

(select 

col9 

from 

srfe 

where 

seq_no 

= 

11) 

254 

col 12  = 

(select 

col9 

from 

mfe 

where 

seq_no 

= 

12) 

255  where  seq_no  =  9; 


256 

257  insert  into  mfebody(seq_no)  values  (10); 

258  update  mfebody  set 


259 

coll  =  (select 

collO 

from 

mfe 

where 

seq_no 

* 

1>, 

260 

col2  3  (select 

collO 

from 

mfe 

where 

seqjio 

X 

2), 

261 

col3  *  (select 

collO 

from 

srfe 

where 

seq_no 

X 

3), 

262 

col4  3  (select 

collO 

from 

mfe 

where 

seq_no 

= 

4), 

263 

col5  =  (select 

collO 

from 

srfe 

where 

seq_no 

X 

5). 

264 

col6  =  (select 

collO 

from 

srfe 

where 

seqjio 

= 

6), 

265 

col7  =  (select 

collO 

from 

mfe 

where 

seq_no 

X 

7), 

266 

colS  *  (select 

collO 

from 

mfe 

where 

seq_no 

= 

8), 

267 

col9  *  (select 

collO 

from 

mfe 

where 

seq_no 

X 

9), 

268 

collO  *  (select 

col  10 

from 

mfe 

where 

seqjio 

= 

10) 

269 

colli  =  (select 

collO 

from 

srfe 

where 

seqjio 

= 

11) 

270 

col12  =  (select 

collO 

from 

mfe 

where 

seqjio 

= 

12) 

271 

where  seq_no  *  ' 

10; 

272 


273 

update 

mfebody 

set 

coll 

X 

0 

where 

coll 

is 

null 

274 

update 

mfebody 

set 

O 

O 

tZ 

X 

0 

where 

col2 

is 

null 

275 

update 

mfebody 

set 

col3 

X 

0 

where 

col3 

is 

null 

276 

update 

mfebody 

set 

COl4 

X 

0 

where 

eol4 

is 

null 

277 

update 

mfebody 

set 

colS 

X 

0 

where 

col5 

is 

null 

278 

update 

mfebody 

set 

O 

o 

OK 

X 

0 

where 

col6 

is 

null 

279 

update 

mfebody 

set 

col  7 

X 

0 

where 

col7 

is 

null 

280 

update 

mfebody 

set 

col8 

X 

0 

where 

col  8 

is 

null 
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281  update  mfebody  set  col9  *  0  where  col9  is  null; 

282  update  mfebody  set  col 10  *  0  where  col 10  is  null; 

283  update  mfebody  set  colli  *  0  where  colli  is  null; 

284  update  mfebody  set  col12  •  0  where  col12  is  null; 

285  select  *  from  mfebody; 
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1 

drop  table  mfe; 

2 

create  table  mfe 

3 

(peo_no 

char(4). 

4 

short  _peo 

char(3). 

5 

seq_no 

number. 

6 

coll 

number(4). 

7 

col2 

number(4). 

8 

col3 

nuntoer(4), 

9 

col4 

number(4), 

10 

col5 

numfcer(4), 

11 

col6 

nutber(4). 

12 

col7 

nunber(4). 

13 

col8 

number(4)) 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 

32 

33 

34 

35 

36 

37 

38 

39 

40 

41 

42 

43 

44 

45 

46 

47 

48 

49 

50 

51 

52 

53 

54 

55 

56 


drop  index  mfel; 

create  index  mfel  on  mfetemp(short_peo); 
insert  into  mfe(short_peo,peo_no) 

select  distinct  short_peo,  peo_no  from  mfetemp 
where  dummy  3  'O'; 

insert  into  mfe(peo_no)  select  blank  from  nulltbl 

where  rownum  <=(select  12-count(»)  from  mfe); 
update  mfe  set  seq_no= rownum; 

update  mfe  a  set 

coll3  (select  round(calcl)  from  mfetemp 
where  a.peo  no  *  peono 
and  dimity  *  '2'), 

co l 2=  (select  round(calc2)  from  mfetemp 
where  a.peono  =  peo_no 
and  (kjmmy  *  ‘2*), 

col3=  (select  round(calc3)  from  mfetemp 
where  a.peo  no  =  peo  no 
and  dumy  3  *2'), 

col4=  (select  round(calc1)-round(calc2)  from  mfetemp 
where  a .  peo  no  3  peo  no 
and  dummy  3  '2'), 

col5=  (select  decode(round(calc1),0,0,{round(calc1)-round(calc2)> 
/  round(calcl)  *  100)  from  mfetemp 
where  a.peo_no  =  peo_no 
and  dummy  3  '2'), 

col6=  (select  decode(round(calc2),0,0,round(calc3) 

/  round(calc2)  *  100)  from  mfetemp 
where  a.peo_no  3  peo_no 
and  dummy  3  '2'), 

col7*  (select  decode(round(calc1),0,0,round(calc2) 

/  round(calcl)  *  100)  from  mfetemp 
where  a.peo_no  3  peo_no 
and  dummy  3  '2'), 

co l 8=  (select  decode(round(calc2),0,0,(round(calc2)-round(calc3)) 
/  round(calc2)  *  100)  from  mfetenp 
where  a.peo_no  3  peo_no 
and  dummy  3  '2') 
where  peo_no  >  •  •; 

select  *  from  mfe; 
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ft 


ft 


i 


57 


58 

drop  table  mfehead; 

59 

drop  table  mfebody; 

60 

create  table  mfehead 

61 

(short_peo1 

char(3). 

62 

short _peo2 

char(3). 

63 

short_peo3 

chart 3). 

64 

short _peo4 

char (3), 

65 

short _peo5 

char(3). 

66 

short_peo6 

char(3). 

67 

short  jjeo7 

char(3). 

68 

short_peo8 

char (3), 

69 

short_peo9 

char(3). 

70 

short_peo10 

char(3). 

71 

short_peo11 

char(3). 

72 

short_peo12 

char(3)); 

73 

74 

insert  into  mfehead(short_peo1)  valuesC  '); 

75 

update  mfehead  set 

76 

short__peo1  = 

(select  short_peo  from  mfe  where  seq_r>o  =  1), 

77 

short _peo2  * 

(select  short_peo  from  mfe  where  seq_no  *  2), 

78 

short_peo3  = 

(select  short_peo  from  mfe  where  seq_no  *  3), 

79 

short _peo4  « 

(select  short_peo  from  mfe  where  seq_no  =  4), 

80  short_peo5  *  (select  short_peo  from  mfe  where  seq_no  =  5), 

81  short_peo6  *  (select  short_peo  from  mfe  where  seq_no  =  6), 

82  short_peo7  *  (select  short_peo  from  mfe  where  seq_no  =  7), 

83  short_peo8  *  (select  short_peo  from  mfe  where  seq_no  =  8), 

84  short_peo9  =  (select  short_peo  from  mfe  where  seq_no  =  9), 

85  short_peo10  *  (select  short_peo  from  mfe  where  seq_no  =  10), 

86  short_peo11  =  (select  short_peo  from  mfe  where  seq_no  =  11), 

87  short_peo12  *  (select  short__peo  from  mfe  where  seq_no  =  12); 

88  select  *  from  mfehead; 

89 

90  create  table  mfebody 


91 

(seq_no  number. 

92 

coll 

number. 

93 

col2 

number. 

94 

col3 

nunber. 

95 

col4 

number. 

96 

col5 

number. 

97 

col6 

number. 

98 

col7 

number. 

99 

col8 

nunber. 

100 

col9 

nunber. 

101 

collO  number, 

102 

colli 

nunber, 

103 

col12  nunber); 

104 

105 

insert  into  mfebody(seq_no)  values  (1); 

106 

update  mfebody  set 

107 

coll  - 

(select  coll 

from  mfe  where  seq_no  *  1), 

108 

col2  * 

(select  coll 

from  mfe  where  seq_no  =  2), 

109 

col3  * 

(select  coll 

from  mfe  where  seq_no  =  3), 

110 

col4  = 

(select  coll 

from  mfe  where  seq_no  =4), 

111 

col5  * 

(select  coll 

from  mfe  where  seq_no  *  5), 

112 

col6  = 

(select  coll 

from  mfe  where  seq_no  =  6), 

ft 
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113  col7  *  (select  coll  fro*  mfe  where  seq_no  *  7), 

114  col8  *  (select  coll  froai  mfe  where  seq_no  *  8), 

115  col9  «  (select  coll  from  arfe  where  seq_no  *  9), 

I  118  collO  *  (select  coll  from  afe  where  seq_no  *  10), 

117  colli  *  (select  coll  froa  afe  where  seq_.no  *  11), 

118  col12  *  (select  coll  froa  afe  where  seq_no  *  12) 

119  where  seq_no  *  1; 

120 

121  insert  into  mfebody(seq_no)  values  (2); 

I  122  update  mfebody  set 

123  coll  *  (select  col2  froa  afe  where  seq_.no  =  1), 

124  col2  =  (select  col2  from  afe  where  seq_no  *  2), 

125  col3  =  (select  col2  from  afe  where  seq_no  *  3), 

126  coU  »  (select  col2  from  afe  where  seq_no  ■  4), 

127  col5  *  (select  col2  from  afe  where  seq_no  =  5), 

i  128  col6  *  (select  col2  from  afe  where  seq_no  a  6), 

129  col7  =  (select  col2  from  afe  where  seq_no  *  7), 

130  col8  *  (select  col2  from  arfe  where  se«Lno  =  8), 

131  col9  =  (select  col2  from  afe  where  seq_no  =  9), 

132  collO  =  (select  col2  from  mfe  where  seq_no  =  10), 

133  colli  =  (select  col2  from  mfe  where  seq_no  a  ii)< 

^  134  col12  a  (select  col2  from  mfe  where  seq_no  =  12) 

135  where  seq_no  *  2; 

136 

137  insert  into  mfebody(seq_no)  values  (3); 

138  update  mfebody  set 

139  coll  =  (select  13  from  mfe  where  seq_no  =1), 

I  140  col2  a  (select  col3  from  mfe  where  seq_no  a  2), 

141  col3  *  (select  col3  from  mfe  where  seq_no  »  3), 

142  col4  a  (select  col3  from  mfe  where  seq_no  *  4), 

143  col5  =  (select  col3  from  mfe  where  seq_no  =  5), 

144  col6  *  (select  col3  from  mfe  where  seq_no  «  6), 

145  col7  =  (select  col3  from  mfe  where  seq_no  *  7), 

I  146  col8  =  (select  col3  from  mfe  where  seq_no  =  8), 

147  col9  =  (select  col3  from  mfe  where  seq_no  a  9), 

148  collO  *  (select  col3  from  mfe  where  seq_no  =  10), 

149  colli  =  (select  col3  from  mfe  where  seq_no  *  11), 

150  col 12  =  (select  col3  from  mfe  where  seq_no  =  12) 

151  where  seq_.no  a  3; 

I  152 

153  insert  into  mfebody(seq_no)  values  (4); 

154  update  mfebody  set 

155  coll  a  (select  col4  from  mfe  where  seq_no  =1), 

156  col2  =  (select  col4  from  mfe  where  seq_no  =  2), 

157  col3  =  (select  col4  from  mfe  where  seq_no  ■  3), 

I  158  col4  =  (select  col4  from  mfe  where  seq_no  =  4), 

159  col5  =  (select  col4  from  mfe  where  seq_no  =  5), 

160  col6  =  (select  col4  from  mfe  where  seq_no  =  6), 

161  col7  a  (select  eol4  from  mfe  where  seq_no  *  7), 

162  col8  ■  (select  coU  from  mfe  where  seq_no  a  8), 

163  col9  *  (select  col4  from  mfe  where  seq_no  »  9), 

>  164  collO  =  (select  col4  from  mfe  where  seq_no  a  10), 

165  colli  =  (select  col4  from  mfe  where  seq_no  *  11), 

166  col12  »  (select  col4  from  mfe  where  seq_no  =  12) 

167  where  seq_no  ■  4; 

168 
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169  insert  into  mfebody(seq_no)  values  (5); 

170  update  mfebody  set 

171  coll  *  (select  col5  fro*  mfe  where  seq_no  *  1), 

i  172  col2  *  (select  colS  fro*  *fe  where  seq_no  *  2), 

173  col3  *  (select  col5  fro*  *fe  where  seq_no  *  3). 

174  col4  =  (select  col5  fro*  *fe  where  seq_no  *  4), 

175  col5  *  (select  colS  fro*  *fe  where  seq_no  *  5), 

176  col6  *  (select  col5  fro*  *fe  where  seq_no  *  6), 

177  col7  »  (select  col5  fro*  *fe  where  seq_no  =  7), 

&  178  col8  *  (select  col5  fro*  *fe  where  seq_no  =  8), 

179  col9  =  (select  col5  fro*  *fe  where  seq_no  =  9), 

180  ;ol10  =  (select  col5  fro*  *fe  where  seq_no  *  10), 

181  colli  =  (select  col5  fro*  *fe  where  seq_no  =11), 

182  col12  =  (select  col5  fro*  *fe  where  seq_no  *  12) 

183  where  seq_no  a  5; 

I  184 

185  insert  into  mfebody(seq_no)  values  (6); 

186  update  mfebody  set 

187  coll  =  (select  col6  fro*  *fe  where  seq_no  =1), 

188  col2  =  (select  col6  fro*  *fe  where  seq_no  =  2), 

189  col3  a  (select  col6  fro*  *fe  where  seq_no  »  3), 

I  190  col4  a  (select  col6  fro*  *fe  where  seq_no  =  4), 

191  ,  col5  =  (select  col6  fro*  mfe  where  seq_no  =5), 

192  col6  =  (select  col6  fro*  «fe  where  seq_no  =  6), 

193  col7  =  (select  col6  fro*  mfe  where  seq_no  =  7), 

194  colS  =  (select  col6  fro*  mfe  where  seq_no  =  8), 

195  col9  =  (select  col6  fro*  mfe  where  seq_no  =  9), 

I  196  collO  =  (select  col6  fro*  «fe  where  seq_no  *  10), 

197  colli  =  (select  col6  fro*  mfe  where  secL"o  =11). 

198  col 12  =  (select  col6  fro*  mfe  where  seq_no  *  12) 

199  where  seq_no  *  6; 

200 

201  insert  into  mfebody(seq_no)  values  (7); 

I  202  update  mfebody  set 

203  coll  =  (select  col7  from  mfe  where  seq_no  =  1), 

204  col2  =  (select  col7  fro*  mfe  where  seq_no  =  2), 

205  col3  =  (select  col7  fro*  mfe  where  seq_no  =  3), 

206  col4  =  (select  col7  fro*  mfe  where  set^jro  *  4), 

207  colS  =  (select  col7  fro*  mfe  where  seq_no  =5), 

i  208  col6  a  (select  col7  fro*  mfe  where  seq_no  =  6), 

209  col7  *  (select  col7  fro*  *fe  where  seq_no  ■  7), 

210  col8  =  (select  col7  from  mfe  where  set(_no  *  8), 

211  col9  *  (select  col7  fro*  mfe  where  seq_no  *  9), 

212  collO  =  (select  col7  fro*  mfe  where  seq_no  a  10), 

213  colli  =  (select  col7  from  mfe  where  seq_no  *  11), 

►  214  col12  =  (select  col7  fro*  mfe  where  seq_no  =  12) 

215  where  seq_no  *  7; 

216 

217  insert  into  mfebody(seq_no)  values  (8); 

218  update  mfebody  set 

219  coll  a  (select  col8  fro*  mfe  where  seq_no  =  1), 

I  220  eol2  a  (select  col8  fro*  mfe  where  seq_no  =  2), 

221  col3  *  (select  col8  fro*  mfe  where  seq_no  *  3), 

222  eol4  *  (select  col8  fro*  mfe  where  seq_no  =  4), 

223  col5  *  (select  eol8  fro*  mfe  where  seq_no  »  5), 

224  col6  =  (select  col8  fro*  mfe  where  seq_no  *  6), 

) 
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225  col/  »  (select  col8  fro*  isfe  where  seq_no  *  7), 

226  col8  *  (select  col8  froa  afe  where  seq_no  *  8), 

227  col9  «  (select  col8  from  afe  where  seq_no  ■  9), 

228  collO  *  (select  col8  froa  afe  where  seq_no  *  10), 

229  colli  *  (select  col8  froa  afe  where  seq_no  *  11), 

230  col12  *  (select  col8  froa  afe  where  seq_no  =  12) 

231  where  seq_no  *  8; 

232  update  mfebody  set  coll  *  0  where  coll  is  null; 

233  update  mfebody  set  col2  *  0  where  cot2  is  null; 

234  update  mfebody  set  col3  *  0  where  col3  is  null; 

235  update  mfebody  set  col4  =  0  where  col4  is  null; 

236  update  mfebody  set  colS  =  0  where  col5  is  null; 

237  update  mfebody  set  col6  »  0  where  col6  is  null; 

238  update  mfebody  set  col7  *  0  where  col7  is  null; 

239  update  mfebody  set  colS  *  0  where  col8  is  null; 

240  update  mfebody  set  col9  *  0  where  col9  is  null; 

241  update  mfebody  set  col 10  =  0  where  col 10  is  null; 

242  update  mfebody  set  colli  =  0  where  colli  is  null; 

243  update  mfebody  set  col 12  =  0  where  col 12  is  null; 

244  select  *  from  mfebody; 
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r«a  start  setoff 
set  l in  78 
set  numwidth  4 
set  space  0 
start  HFF300R 

insert  into  tempclass(seq_no)  values  (1); 
update  tempclass  set 

fy  *  (select  substr(to_char(max(fy)),3,2)  froa  afetemp 
where  dumy  =  '0'), 

emonth  *  (select  aax(exec_month)  froa  rdte_exec 

where  fy  *  (select  max(fy)  froa  afetemp 
where  dumy  »  '0')), 

class  *  (select  max(class)  froa  afetemp  where 
decode(class, 'S',2, 'C',1,0)  * 

(select  max(decode(class, 'S',2, 'C' ,1,0))  froa  mfeteap 
where  dumy  =  '0')) 

where  seq_no  *  1; 

spool  mfe310.prn; 
select  "  from  dual; 
select  ' *  from  dual; 

select  'FY'.fy,'  ROTE  Execution  by  PEO'  from  tempclass  where  seq_no  =  1; 
select  1 ‘  from  dual; 
select  'MFE310*  from  dual; 

select  distinct  'RDTE  Execution  Sunmary  by  PEO  Class 

substr(class,1,1), •] 1  from  tempclass  where  seq_no  =  1; 
select  distinct  'FY'.fy,'  RDTE  Execution  as  of  ' ,to_char(emonth, 'Hon  YY')  from  tempclass 
where  seq_no  *  1; 
select  ' •  from  dual; 
select  "  from  dual; 

select  'PEO  ",short_peo1, '  ' .short _peo2, 1  ' ,short_peo3, '  ' ,short_peo4, '  ', 

shortjpeo5,'  ' ,short_peo6, '  ' ,short_peo7,'  ',  shortjaeo8, '  ', 

short_peo9,'  ' ,short_peo10, '  ' ,short_peo11, '  ',short_peo12  from  mfehead; 

select  'Apvd  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7,'  ' ,colfl, '  ',col9,'  ',col10  cola,'  '.colli  colb,'  ',col12  cole 

from  mfebody  where  seq_no  ■  1; 

select  'Oblg  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7,'  ',col8,'  ',col9,'  ',col10  cola, '  '.colli  colb,'  ',col12colc 

from  mfebody  where  seq_no  =  2; 

select  'Disb  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7, '  ',col8,'  ',col9,'  ',col10  cola,'  '.colli  colb,'  ',col12  cole 

from  mfebody  where  seq_no  =  3; 

select  'Unob  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7,'  ',col8,'  ',col9,'  ',col10  cola,'  '.colli  colb,'  ',col12colc 

from  mfebody  where  seq_no  *  4; 

select  'X  Unob', coll, 'X',col2,'X\col3,'X  ' ,col4, 'X' ,col5, 'X  ',col6,'X‘, 

col7,'X',col8, 'X',col9,'X  '.collO  cola, 'X', colli  colb,’X',col12  colc.'X' 
froa  mfebody  where  seq_no  =  5; 

select  'X  Liqd'.coll, 'X',col2, 'X',col3, 'X  *,col4, 'X',col5, 'X  ',col6,’X', 

col7, 'X' ,col8, 'X' ,col9, 'X  '.collO  cola, 'X' , colli  colb, 'X' ,col12  colc.'X' 
from  mfebody  where  seq_no  *  6; 

select  'X  Oblg', coll, 'X',col2,'X',col3,'X  ',col4,'X',col5,'X  *,col6,'X', 

eol7,'X',eol8,'X',col9,’X  '.collO  cola, 'X', colli  colb,'X',col12  colc.'X' 
from  mfebody  where  seq_no  =  7; 

select  'X  Unob', coll, 'X',col2,'X',col3,'X  ',eol4,'X',col5,'X  ',col6,'X', 

col7, 'X',col8, 'X',col9, 'X  '.collO  cola, 'X', colli  colb, 'X',col12  colc.'X' 
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froa  afebody  where  seq_no  *  5; 

select  'X  Liqd',col1,'X\col2,'X',col3,*X  ',col4, 'X'.colS, ‘X  ',col6,'X', 

col7, 'X',col8,'X',col9, 'X  '.collO  cola, 'X', colli  colb, 'X',col12  colc.'X' 
froa  afebody  where  seq_no  *  6; 

select  'X  Unlq',col1, ‘X1 ,col2, 'X‘,col3, 'X  ' ,col4, 'X'.colS, 'X  ',col6,'X', 

col7, 'X' ,col8, 'X',col9, 'X  ',col10  cola, 'X1, colli  colb, 'X' ,col12  colc.'X' 
froa  afebody  where  seq_no  =  8; 

select  'Color  000  00  0000  000'  from  dual; 

select  'Color  000  00  0000  00  0'  from  dual; 

select  "  from  dual; 
select  ' '  from  dual; 
select  'MFE311'  froa  dual; 

select  distinct  'ROTE  Program  Dollar  Suimary  by  PE0  Class  [', 

substr(class,1,1), '] '  froa  teapclass  where  seq_no  *  1; 
select  distinct  'FY'.fy, '  ROTE  Execution  as  of  ' ,to_ehar(emonth, 'Mon  YY')  froa  tempclass  where  seq_no  =  1; 
select  "  from  dual; 
select  ' '  froa  dual; 
select  'MFE312'  froa  dual; 

select  distinct  'ROTE  Obligated  Dollar  Suimary  by  PE0  Class  [', 
substrlclass, 1 , 1 ), '] '  from  tempclass  where  seq_no  =  1; 
select  distinct  'FY'.fy,'  RDTE  Execution  as  of  ',to_char(eaonth,'Mon  YY')  from  tempclass  where  seq_no  =  1; 
select  "  from  dual; 
select  ' '  from  dual; 
select  'MFE313'  froa  dual; 

select  distinct  'ROTE  Percent  Obligated  Summary  by  PEO  Class  t', 
substrlclass, 1, 1), '1 '  from  tempclass  where  seq_no  =  1; 
select  distinct  'FY'.fy,*  RDTE  Execution  as  of  ',to_char(emonth, 'Mon  YY')  froa  tempclass  where  seq_no  *  1; 
select  "  froa  dual; 
select  ' '  from  dual; 
select  'MFE314'  from  dual; 

select  distinct  'RDTE  Percent  Liquidated  Summary  by  PEO  Class  [', 
substrlclass, 1, 1), '] '  from  tempclass  where  seq_no  =  1; 
select  distinct  'FY'.fy,'  RDTE  Execution  as  of  • ,to_charlemonth, 'Mon  YY')  from  tempclass  where  seq_no  =  1; 
spool  off; 

rem  start  seton 

real  edit  mfe310.prn  mfe320.prn  mfe310.sql 
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r«M  start  setoff 
set  l in  78 
set  numridth  4 
set  space  0 
start  MFE300R 

insert  into  tempclass(seq_no)  values  (2); 
update  tenpclass  set 

fy  «  (select  subetr(to_char(mx(fy)),3,2)  fra*  mfetenp 
where  dunny  *  *0'), 

anonth  »  (select  mex(execjaonth)  from  rdte_exec 

where  fy  *  (select  max(fy)  frost  mfetenp 
where  dunny  *  '01)), 

class  *  (select  max(class)  frost  sifetenp  where 
decode(class,'S',2, 'C',1,0)  * 

(select  max(decode(class,  'S', 2,  'C'.I.O))  front  sifetenp 
where  dutnty  *  '0')) 

where  seq_no  *  2; 

spool  stfe320.prn; 
select  "  frost  dual; 
select  11  front  dual; 

select  'FY'.fy,'  ROTE  Execution  by  PEO'  from  tenpclass  where  seq_no  =  2; 
select  "  from  dual; 
select  'MFE3201  from  dual; 

select  distiiv*  'ROTE  Execution  Seminary  by  PEO  Class  (', 

substr(class,1,1), '] '  from  tenpclass  where  seq_no  =  2; 
select  distinct  'FY'.fy,'  ROTE  Execution  as  of  ' ,to_ehar(emonth, 'Non  YY')  from  tenpclass 
where  seq_no  *  2; 
select  "  from  dual; 
select  ' '  from  dual; 

select  'PEO  ' , short_peo1 , '  ' ,short_peo2, '  ', short jpeo3, '  ' ,short_peo4, '  ', 

short  jpeo5,'  ' ,short_peo6, '  ' ,short_peo7, '  ',  short_peo8, '  ', 

short_peo9,'  ',short_peo10, '  ',short_peo11, '  ',short_peo12  from  mfehead; 
select  'Apvd  ',col1,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7,'  ',col8,'  ',col9,'  ',col10  cola, '  ', colli  colb,'  ',col12  cole 

from  mfebody  where  seq_no  *  2; 

select  'Oblg  ',col1,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7,'  ',col8,'  ',col9,'  ', col 10  cola,'  ', colli  colb,'  ',col12  cole 

from  mfebody  where  seq_no  *  2; 

select  'Oisb  ',col1,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  '.cold,'  ', 

eol7,'  ',col8,'  ',€019,'  *,col10  cola,'  ', colli  colb,'  ',col12  cole 

from  mfebody  where  seq_no  *  3; 

select  'Unob  '.coll,'  ',eol2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7,'  ',col8,'  ',col9,'  '.collO  cola, '  ', colli  colb,'  ', col  12  cole 
from  mfebody  where  seq_no  =  4; 

select  'X  Unob', coll, '%',eol2,'X',col3,'X  \col4,'X',col5,'X  ',col6,'X', 

col7,'X',eol8,'X',col9,'X  '.collO  cola, 'X', colli  colb, 'X',col12  colc.'X' 
from  mfebody  where  seq_no  =5; 

select  'X  Liqd',col1,'X',col2,'X',col3,'X  ',col4,'X',col5,'X  ',col6,'X', 

col7, 'X'.eolS.'X' ,col9, 'X  '.collO  cola, 'X' , colli  colb, 'X',col12  colc.'X’ 
from  mfebody  where  seq_no  *  6; 

select  'X  Oblg', coll, 'X',col2,'X',col3,'X  ',col4,'X',col5,'X  ',col6,'X', 

col7, 'X',col8, 'X',col9, 'X  '.collO  cola, 'X' , colli  colb, 'X' ,col12  colc.'X' 
from  mfebody  where  se«|_no  «  7; 

select  'X  Unob', coll, 'X',col2,'X',col3,'X  ',col4,'X',col5,'X  ',eol6,'X', 

col7,'X',col8,'X',col9,'X  '.collO  cola, 'X', colli  colb, 'X* , col 12  colc.'X' 
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57  fro*  mfebody  where  seq_no  *  5; 

58  select  'X  Liqd'.cotl,  'X',col2,  'X* ,col3,  'X  ',col4,'X',col5,'X  \col6,'X', 

59  eol7,'X',col8,'X',col9,'X  '.collO  cola, 'X' .colli  colb, ‘X1 ,col12  colc.'X' 

60  fro*  mfebody  where  seq_no  *  6; 

61  select  'X  Unlq',col1t'X',col2,'X',col3,'X  • ,col4, 'X' ,col5, 'X  '.col6,'X\ 

62  col7,,X',col8,'X,,col9,,X  *,col10  cola,  ‘X1  .colli  cotb,'X*,col12  colc.'X' 

63  fro*  mfebody  where  seq_no  *  8; 

64  select  'Color  000  00  0000  00  0*  fro*  dual; 

65  select  'Color  000  00  0000  000'  fro*  dual; 

66  select  "  fro*  dual; 

67  select  "  fro*  dual; 

68  select  'MFE321'  fro*  dual; 

69  select  distinct  'ROTE  Progra*  Dollar  Simmary  by  PE0  Class  [', 

70  substr(class,1,1), '  from  tempclass  where  seq_no  *  2; 

71  select  distinct  'FY'.fy,'  ROTE  Execution  as  of  ',to_char(e*onth, ‘Mon  YY')  fro*  tempclass  where  seq_no  T  2; 

72  select  "  fro*  dual; 

73  select  "  from  dual; 

74  select  'MFE322'  fro*  dual; 

75  select  distinct  'ROTE  Obligated  Dollar  Suimary  by  PEO  Class 

76  substr(class,1,1), '] '  from  tempclass  where  seq_no  =  2; 

77  select  distinct  'FY'.fy, '  ROTE  Execution  as  of  ' ,to_char(emonth, 'Mon  YY')  from  tempclass  where  seq_no  *  2; 

78  select  "  from  dual; 

79  select  "  fro*  dual; 

80  select  'MFE323'  from  dual; 

81  select  distinct  'ROTE  Percent  Obligated  Summary  by  PEO  Class 

82  substr(class,1,1), '] '  from  tempclass  where  seq_no  1  2; 

83  select  distinct  'FY',fy, '  ROTE  Execution  as  of  *,to_char<emonth, 'Mon  YY')  fro*  tempclass  where  seq_no  *  2; 

84  select  "  from  dual; 

85  select  "  from  dual; 

86  select  'MFE324'  from  dual; 

87  select  distinct  'ROTE  Percent  Liquidated  Sunmary  by  PEO  Class  [', 

88  substr(class,1,1), '] '  from  tempclass  where  seq_no  =  2; 

89  select  distinct  'FY'.fy,'  ROTE  Execution  as  of  ' ,to_char(e*onth, 'Mon  YY')  fro*  tempclass  where  seq_no  *  2; 

90  spool  off; 

91 

92  rent  start  seton 

93  rem  edit  mfe320.prn  mfe320.prn  mfe320.sql 
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reia  start  setoff 

set  l in  78 

set  nuawidth  4 

set  space  0 

start  MFE300P 

delete  fro*  tempclass; 

insert  into  te«pclass(seq_no)  values  (1); 

update  tempclass  set 

fy  *  (select  substr(to_char(*ax(fy)),3,2)  fro*  mfetemp 
where  dummy  *  '0'), 

emonth  *  (select  *ax(exec_*onth)  fro*  proc_exec 

where  fy  *  (select  max(fy)  fro*  afetenp 
where  dumy  *  '0')), 

class  =  (select  nex(class)  fro*  *fetenp  where 
decode(class, 'S' ,2, 'C',1 ,0)  * 

(select  max(decode(cLass,'S',2,'C',1,0))  from  mfetemp 
where  dummy  *  '0')) 

where  seq_no  *  1; 


spool  mfe360.prn; 
select  "  from  dual; 
select  1 1  from  dual; 

select  'FY'.fy, 1  Program  Dollars  by  PEO'  from  tempclass  where  seq_no  =1; 
select  "  from  dual; 
select  'HFE3601  from  dual; 

select  distinct  'Procurement  Execution  Summary  by  PEO  Class  [', 
substr(class,1,1), '  from  tempclass  where  seq_no  *  1; 

select  distinct  'FY'.fy,'  Procurement  Execution  as  of  ',  to_char( emonth, 'Mon  YY')  from  tempclass  where  seq_no  *  1; 

select  ' '  from  dual; 
select  "  from  dual; 

select  'PEO  ', short _peo1 , '  ',short_peo2, '  ',short_peo3,'  ' ,short_peo4, '  ', 

short_peo5,'  ' ,short_peo6, '  ',short_peo7,'  * ,short_peo8, 1 
short_peo9,'  ',short_peo10, '  '.short _peo11,'  ' ,short_peo12  from  mfehead; 
select  'Cong  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7, '  ',col8, '  ',eol9f'  '.collO  cola,'  '.colli  eolb,'  ',col12  cole 

from  mfebody  where  seq_no  *  9; 

select  'Apvd  '.coll,'  'tcol2,'  'tcol3,'  'fcol4,'  ',col5t'  ',col6,'  ', 

col7,'  ',col8,'  ',col9,'  '.collO  cola,'  '.colli  colb,'  ',col12  cole 

from  mfebody  where  seq.no  *  1; 

select  'Ob  PI  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',eol5,'  ',col6,' 

col7,'  ',col8,'  ',col9,'  ', collO  cola, '  '.colli  colb,'  ', col  12  cole 

from  mfebody  where  seq_no  =  10; 

select  '0b  Ac  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7,'  ',col8,'  ',col9,'  '.collO  cola, '  '.colli  colb,'  ',col12  cole 
fro*  mfebody  where  seq_no  *  2; 

select  'Disb  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  *,col6,'  ', 

col7, '  *,col8, '  ',col9, •  ', collO  cola,'  '.colli  colb,'  ',eol12  cole 

fro*  mfebody  where  seq_no  =  3; 

select  'Unob  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7,'  ',col8,'  ',col9,'  '.collO  cola,'  '.colli  colb,'  *,col12  cole 

fro*  mfebody  where  seq_no  *  4; 

select  'X  Unob', coll, 'X',col2,'X',col3,'X  ',col4,'X',col5,'X  \col6,'X', 

col7, 'X',col8, 'X',col9, 'X  '.collO  cola, 'X' , colli  colb, 'X' ,col12  colc.'X' 
from  mfebody  where  seq_no  *  5; 

select  'X  liqd'.coll, 'X',col2, 'X',col3, 'X  ',col4,'X',col5,'X  ',col6,'X', 


MFE380.SOL 


Thursday,  October  11,  1990  3:55  pn 


Page  2 


col7,  'X'  ,col8,  'X' ,col9,  'X  ', collO  cola, 'X' .colli  colb, 'X*  ,col12  colc.'X' 
from  mfebody  where  seq_no  «  6; 

select  'X  Oblg'.coll, 'X' ,col2, 'X' ,col3, 'X  '  ,col4,  'X',eol5,  *X  ',col6,'X', 

col7,  'X',col8,  ‘X1  ,col9,  'X  ', collO  cola, 'X', colli  colb,'X',col12  colc.'X' 
fro*  Mfebody  where  seq_no  *  7; 

select  'X  Unob',col1,'X',col2,'X',col3,'X  *,col4, 'X',col5, 'X  ',col6,'X', 

eol7,'X',col8,'X',col9,'X  ', collO  cola, 'X' .colli  colb, *X' ,col12  colc.'X1 
fro*  *febody  where  seq_no  »  5; 

select  'X  Liqd',col1,'X',col2,'X',col3,'X  ',col4,'X',col5,'X  ',col6,'X', 

col7,'X',col8, 'X',col9,'X  ', collO  cola, 'X' .colli  eolb, 'X' ,col12  colc.'X' 
fro*  Mfebody  where  seq_no  *  6; 

select  'X  Unlq',col1,'X',col2,'X',col3,'X  ',col4,'X',col5,'X  '.col6,'X*, 

col7,'X',col8,'X',col9,'X  ', collO  cola, *X' .colli  colb,'X',col12  colc.'X* 
fro*  sifebody  where  seq_no  *  8; 

select  'Color  000  00  0000  00  0'  fro*  dual; 

select  'Color  000  00  0000  00  0'  fro*  dual; 

select  'Color  000  00  0000  00  0*  fro*  dual; 

select  "  fro*  dual; 

select  "  fro*  dual; 

select  "  fro*  dual; 

select  "  fro*  dual; 

select  'MFE361'  fro*  dual; 

select  distinct  'Procurement  Program  Dollar  Stannary  Class  t', 

substr(class,1,1),'] '  fro*  tempclass  where  seq_no  1  1; 
select  '  by  PEO'  from  dual; 

select  distinct  'FY'.fy,'  Procurement  Execution  as  of  '  ,to_char(emonth, 'Mon  TV)  fro*  tempclass  where  seq_no  *  1; 
select  ' '  fro*  dual; 
select  'MFE362'  fro*  dual; 

select  distinct  'Procurement  Obligated  Dollar  Stannary  Ctass  [', 
substr(class,1,1), 'J ’  fro*  tempclass  where  seq_no  =  1; 
select  '  by  PEO'  fro*  dual; 

select  distinct  'FY'.fy,'  Procurement  Execution  as  of  ' ,to_char(e*onth, 'Mon  YY')  fro*  tempclass  where  seq_no  *  1; 
select  "  from  dual; 
select  'MFE363'  fro*  dual; 

select  distinct  'Procurement  Percent  Obligated  Summary  Class  (', 
substr(class,1,1), '] '  fro*  tempclass  where  seq_no  =  1; 
select  '  by  PEO'  fro*  dual; 

select  distinct  'FY'.fy,'  Procurement  Execution  as  of  ',to_char(emonth, 'Mon  YY')  fro*  tempclass  where  seq_no  *  1; 
select  "  from  dual; 
select  'MFE364'  fro*  dual; 

select  distinct  'Procurement  Percent  Liquidated  Stannary  Class  [', 
substr(clas8,1,1), '] '  fro*  tempclass  where  seq_no  *  1; 
select  '  by  PEO'  fro*  dual; 

select  distinct  'FY'.fy,'  Procurement  Execution  as  of  ',to_char(emonth, 'Mon  YY'>  fro*  tempclass  where  seq_no  *  1; 
spool  off; 

re*  start  seton 

rem  edit  mfe360.prn  mfe360.prn  mfe360.sql 


MFE370.SQI 


Thursday,  October  n(  1990  3:55  pm 


Page  1 


1 

2 

3 

4 

5 

6 

7 

8 
9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 

26 

27 

28 

29 

30 

31 
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53 
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55 

56 


re*  start  setoff 
set  tin  78 
set  nunwidth  4 
set  space  0 
start  MFE300P 

insert  into  tempc l ass ( seq.no )  values  (2); 
update  te*pclass  set 

fy  »  (select  subatr(to_char(max(fy)),3,2)  fro*  *fete*p 
where  duney  =  '0'), 

emonth  »  (select  Max(execjaonth)  fro*  proc_exec 

where  fy  *  (select  mex(fy)  fro*  mfetemp 
where  dunny  *  '0')), 

class  *  (select  max(class)  fro*  nfetemp  where 
decode(class, 'S',2, 'C',1,0)  * 

(select  max(decode(class, 'S',2,'C',1,0))  fro*  Mfetenp 
where  duney  *  '0')) 

where  seq_no  *  2; 


spool  mfe370.prn; 
select  "  from  dual; 
select  "  from  dual; 

select  'FY'.fy, '  Program  Dollars  by  PEO1  from  tempclass  where  seq_no  ■=  2; 
select  1 1  from  dual; 
select  'MFE370'  from  dual; 

select  distinct  'Procurement  Execution  Summary  by  PEO  Class  [', 
substr(class,1,1),'] '  from  tempclass  where  seq_no  *  2; 

select  distinct  'FY'.fy,'  Procurement  Execution  as  of  to_char( emonth, 'Non  YY'>  from  tempclass  where  seq_no  *  1; 

select  "  from  dual; 
select  "  from  dual; 

select  'PEO  • , short_peo1 , 1  *,8hort_peo2,'  ' , short _peo3, •  ' .short _peo4, '  ', 

short_peo5,'  ',short_peo6, '  ',short_peo7, '  ',short_peo8, '  ', 

short_peo9,'  ' ,short_peo10, '  ',short_peo11,'  ' ,short_peo12  fro*  mfehead; 
select  'Cong  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7,'  ',col8,'  ',col9,'  ',col10  cola, '  ', colli  colb,'  ',col12  cole 

fro*  mfebody  where  seq_no  »  9; 

select  'Apvd  '.coll,'  ',col2,'  *,col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7, 1  ',col8, 1  ',eol9, '  ',col10  cola,'  '.colli  colb,'  ',col12  cole 

fi  .  mfebody  where  seq_no  *  1; 

select  'Ob  Pi  '.coll,'  ',col2,'  ',col3,'  ',col4,'  '.colS,'  ',col6,'  ', 

col7,'  ',col8,'  ',col9,'  '.collO  cola,'  '.colli  colb,'  ',col12  cole 
fro*  mfebody  where  seq_no  *  10; 

select  '0b  Ac  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7,'  ',col8,'  ',col9,'  '.collO  cola,'  '.colli  colb,'  ',col12  cole 
fro*  mfebody  where  seq_no  *  2; 

select  *Disb  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

col7,'  ',col8,'  ',col9, '  '.collO  cola,'  ', colli  colb,'  ',col12  cole 
from  mfebody  where  seq_no  ■  3; 

select  'Unob  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,»  *,col6,'  ', 

col7,'  ',col8,'  ',col9,'  ', collO  cola, '  '.colli  colb,'  ',col12  cole 

from  mfebody  where  seq_no  *  4; 

select  'X  Unob', coll, 'X',col2,'X',col3,'X  ',col4, 'X',col5, 'X  ',col6,'X', 

col7,'X',col8,'X',col9,'X  ', collO  cola, 'X' .colli  colb, 'X',col12  colc.'X* 
from  mfebody  where  seq_no  «  5; 

select  'X  Liqd'.coll, 'X',col2,'X',col3, 'X  ',col4,'X',coU,'X  ',col6,'X', 

col7, 'X',col8, 'X',col9, 'X  '.collO  cola, 'X' .colli  colb, 'X', col 12  colc.'X' 
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57 

from  mfebody  where  seq_no  *  6; 

58 

select  'X  Oblg' .coll, 'X' ,col2, *X‘ ,col3, 'X 

*,col4, 'X' 

,eol5,‘X  ' ,col6, 'X', 

59 

col7, *X' ,col8, 'X* ,col9, 'X  ' ,col10 

cola, 'X', colli  colb, 'X',col12 

cole, 'X' 

60 

from  mfebody  where  seq_no  *  7; 

61 

select  'X  Unob' .coll, 'X',col2, 'X',col3, 'X 

',col4,'X' 

,col5,*X  *,col6,'X', 

62 

col7, *X' ,col8, 'X* ,col9, 'X  ■ ,col 10 

cola, 'X', colli  colb, 'X' ,col12  colc.'X' 

63 

from  mfebody  where  seq_no  *  5; 

64 

select  'X  Liqd',col1,'X',col2,'X',col3,'X 

' ,col4, 'X' 

,col5,'X  *,col6, 'X', 

65 

col7, *X' ,col8,  'X' ,col9,  ‘X  * ,col10 

cola, 'X', colli  colb, 'X', col 12 

O 

o 

o 

66 

from  mfebody  where  seq_no  -  6; 

67 

select  'X  Unlq' .coll , 'X' ,col2, 'X' ,col3, 'X 

' ,col4, 'X' 

,col5,  'X  ' ,col6, 'X' , 

68 

col7, 'X' ,col8, 'X' ,col9, 'X  • ,col 10 

cola, 'X' .colli  colb, 'X',col12 

cole, 'X* 

69 

from  mfebody  where  seq_no  =  8; 

70 

select  'Color  000  00 

0  0 

0  0  0  0 

O'  from  dual 

71 

select  'Color  000  00 

0  0/ 

0  0  0  0 

O'  from  dual 

72 

select  'Color  000  00 

0  0 

0  0  0  0 

0*  from  dual 

73 

select  ' '  from  dual; 

74 

select  ' '  from  dual; 

75 

select  "  from  dual; 

76 

select  ' '  from  dual; 

77 

select  'HFE371'  from  dual; 

78 

select  distinct  'Procurement  Program  Dollar  Summary 

Class  [', 

79 

substr(clas8,1,1), '] '  from  tempclass  where  seq_no  *  2; 

80  select  '  by  PEO'  frost  dual; 

81  select  distinct  'FY'.fy,'  Procurement  Execution  as  of  1 ,to_ehar(emonth, 'Mon  YY')  from  tenpclass  where  seq_no  *  2 

82  select  11  from  dual; 

83  select  'HFE372'  from  dual; 

84  select  distinct  'Procurement  Obligated  Dollar  Summary  Class 

85  8ubstr(class,1,1), '] 1  from  tempo l ass  where  seq_no  =  2; 

86  select  '  by  PEO*  from  dual; 

87  select  distinct  'FY'.fy,'  Procurement  Execution  as  of  1 ,to_char(emonth, 'Non  YY1)  from  tempclass  where  seq_no  *  2 

88  select  "  from  dual; 

89  select  'HFE373'  from  dual; 

90  select  distinct  'Procurement  Percent  Obligated  Summary  Class  [', 

91  substr(class,1,1), '] '  from  tempclass  where  seq_no  =  2; 

92  select  '  by  PEO'  from  dual; 

93  select  distinct  'FY'.fy,'  Procurement  Execution  as  of  ',to_char(emonth, 'Hon  YY')  from  tempclass  where  seq_no  *  2 

94  select  "  from  dual; 

95  select  'HFE374*  from  dual; 

96  select  distinct  'Procurement  Percept  Liquidated  Summary  Class  [', 

97  subatr(class,1,1),'] '  from  tempclass  where  seq_no  *  2; 

98  select  '  by  PEO'  from  dual; 

99  select  distinct  'FY'.fy,'  Procurement  Execution  as  o.  • ,to_char(emonth, 'Hon  YY')  from  tempclass  where  seq_no  »  2 

100  spool  off; 

101 

102  rem  start  seton 

103  rem  edit  mfe37D.prn  mfe370.prn  mfe370.sql 
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1  rem  start  setoff 

2  set  l in  78 

3  set  numwidth  4 

4  set  space  0 

5  start  MFE300P 

6  insert  into  teapclass(seq_no)  values  (3); 

7  update  tenpclass  set 

8  fy  *  (select  si£atr(to_char(max(fy)),3,2)  froa  afetemp 

9  where  dumsy  =  'O'), 

10  emonth  *  (select  max(execjnonth)  from  proc_exec 

11  where  fy  «  (select  max(fy)  froa  afetemp 

12  where  dunny  *  '0')), 

13  class  *  (select  max(class)  froa  afetemp  where 

14  decode(class, ' S', 2, 'C', 1,0)  - 

15  (select  aax(decode(class, 'S', 2, 'C',1,0))  froa  afetemp 

16  where  chamy  *  •  0* ) > 

17  where  seq_rto  *  3; 

18 

19 

20  spool  mfe380.prn; 

21  select  11  from  dual; 

22  select  "  from  dual; 

23  select  'FY'.fy, 1  Program  Dollars  by  PEO'  from  tempclass  where  seq_no  *  3; 

24  select  "  from  dual; 

25  select  'MFE380'  from  dual; 

26  select  distinct  'Procurement  Execution  Summary  by  PEO  Class  t‘, 

27  substr(class,1,1),*] '  from  tempclass  where  seqjro  *  3; 

28  select  distinct  'FY'.fy,'  Procurement  Execution  as  of  ',  to_char( emonth, 'Non  YY')  from  tempclass  where  seq_no  *  1; 

29  select  "  from  dual; 

30  select  "  from  dual; 

31  select  'PEO  ' ,short_peo1, '  ' .short _peo2, '  • ,short_peo3, '  ' .short jaeo4, '  ', 

32  8hort_peo5,'  ', short  jseo6, '  ', short  _peo7, '  '.short _peo8, '  ', 

33  short_peo0, '  ',short_peo10,'  ' , short_peo1 1 , '  ',short_peo12  from  mfehead; 

34  select  'Cong  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  *,col6,'  ', 

35  col7,'  ',col8,'  ',col9,'  '.collO  cola, '  '.colli  colb,'  ',col12  cole 

36  from  mfebody  where  seq_no  =  9; 

37  select  'Apvd  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,*  ',col6,'  ', 

38  col7,'  ',col8,'  ',col9,'  '.collO  cola,'  '.colli  colb,'  *,col12  cole 

39  from  mfebody  where  seq_no  =  1; 

40  select  'Ob  PI  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  '.C016,'  ', 

41  col7,'  ',col8,'  ',col9,'  '.collO  cola,'  '.colli  colb,'  ',col12  cole 

42  from  mfebody  where  seq_no  *  10; 

43  select  'Ob  Ac  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

44  col7,'  ',col8,'  ',col9,'  '.collO  cola,'  '.colli  colb,'  ',col12  cole 

45  from  mfebody  where  seq_no  =  2; 

46  select  'Disb  '.coll,'  ',col2,'  ',col3,'  *,col4,'  ',col5,*  ',col6, '  ', 

47  col7,'  ',col8,'  ',col9,'  '.collO  cola,'  '.colli  colb,'  ',col12  cole 

48  from  mfebody  where  seq_no  =  3; 

49  select  'Unob  '.coll,'  ',col2,'  ',col3,'  ',col4,'  ',col5,'  ',col6,'  ', 

50  col7,'  ',col8,'  ',col9,'  '.collO  cola, '  ', colli  colb,'  ',col12  cole 

51  from  mfebody  where  seq_no  *  4; 

52  select  'X  Unob', coll, 'X',col2,'X',col3,'X  \col4,'X',col5,'X  ',col6,'X«, 

53  col7,'X',eol8,'X',col9.'X  ' .collO  cola, 'X' .colli  colb, *X* ,col12  cole, 'X' 

54  from  mfebody  where  seq_no  *  5; 

55  select  'X  Liqd',col1,'X',col2,'X',col3,'X  ',col4,'X',col5,«X  ',col6,'X', 

56  col7,'X',col8,'X',col9,'X  '.collO  cola, 'X* .colli  colb,'X',col12  colc.'X' 
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57  froei  nfebody  where  seq_no  *  6; 

M  select  'X  Oblg' ,eol1, 'X' ,col2, 'X' ,col3, *X  • ,col4, 'X'.colS, 'X  ',col6,'X'. 

59  col T. 'X'.colS, *X',col9, 'X  '.collO  cola, 'X', colli  colb, >X' ,col12  colc.'X' 

60  from  nfebody  where  seq_no  *  7; 

61  select  'X  Unob',col1,'X'.col2, 'X'.colS, 'X  ',col4, 'X'.col5, 'X  ',cot6,'X', 

62  col7,'X',col8,'X',col9,'X  1  ,col10  cola, 'X' , colli  colb, 'X' ,col12  colc.'X* 

63  fro*  nfebody  where  seq_no  *  5; 

64  select  'X  Liqd‘,colVX',col2,'X',cot3,'X  '  ,col4, 'X*  ,col5, 'X  ',col6,'X', 

65  col7, 'X',col8, 'X',col9, 'X  ' ,col10  cola, 'X* , colli  colb, 'X',col12  colc.'X* 

66  from  nfebody  where  seq_no  *  6; 

67  select  'X  Unlq',col1,'X',col2,'X',col3.'X  ',col4,'X',col5,*X  ',col6,'X', 

68  col7,'X',col8, 'X',col9,'X  '.collO  cola, 'X' .colli  colb,'X',col12  colc.'X' 

69  fron  nfebody  where  seq_no  *  8; 

70  select  'Color  000  00  0000  00  0'fr 

71  select  'Color  000  00  0000  00  0'fr 

72  select  'Color  000  00  0000  00  0'fn 


O'  from  dual, 

71  select  'Color  000  00  0000  00  0'  frets  dual; 

72  select  'Color  000  00  0000  00  0'  fron  dual- 

73  select  "  from  dual; 

74  select  "  from  dual; 

75  select  "  from  dual; 

76  select  "  from  dual; 

77  select  'MFE381*  fron  dual; 

78  select  distinct  'Procurement  Program  Dollar  Summary  Class 

7V  siijetr(class,1,1), '] '  fron  tempclass  where  seq_no  *  3; 

80  select  '  by  PEO'  fron  dual; 

81  select  distinct  'FY'.fy,'  Procurement  Execution  as  of  ',to_char(emonth, 'Mon  YY')  from  tenpclass  where  sea  no  *  3- 

82  select  "  from  dual; 

83  select  'HFE382'  from  dual; 

84  select  distinct  'Procurement  Obligated  Dollar  Summary  Class 

85  sifcstrCclass.I.I),'] '  from  tenpclass  where  seq_no  =  3; 

86  select  '  by  PEO*  from  dual; 

87  select  distinct  'FY'.fy.'  Procurement  Execution  as  of  ' ,to_(.har(emonth, 'Hon  YY')  from  tenpclass  where  seqno  =  3- 

88  select  "  from  dual; 

89  select  'MFE383'  fron  dual; 

90  select  distinct  'Procurement  Percent  Obligated  Summary  Class 

91  substr(class,1,1),'] '  from  tenpclass  where  seq_no  =  3; 

92  select  1  by  PEO'  from  dual; 

93  select  distinct  'FY'.fy.'  Procurement  Execution  as  of  ',to_char(emonth, 'Won  YY')  from  tenpclass  where  seq no  *  3- 

94  select  "  from  dual; 

95  select  'MFE384'  from  dual; 

96  select  distinct  'Procurement  Percent  Liquidated  Summary  Class  [', 

97  stixtrCclass.I.I),1] '  from  tenpclass  where  seq_no  =  3; 

98  select  '  by  PEO'  from  dual; 

99  select  distinct  'FY'.fy.'  Procurement  Execution  as  of  ' ,to_char(emonth. 'Non  YY')  from  tenpclass  where  sea  no  -  3; 

100  spool  off; 

101 

102  rem  start  seton 

103  rem  edit  mfe380.prn  nfe380.prn  mfe380.sql 
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1  drop  table  teapclass; 

2  create  table  teapclass 

3  (fy  char(2), 

4  month  date, 

5  class  char(3), 

6  seq_no  nmber); 

7 


